natürliche, ungerade zahlen addieren

[richie]

Edit: Hab mich verlesen. Aber so müsste es doch gehen:

Delphi-Quellcode:

 for I := 1 to 489511 do
  if I mod 2 = 1 then
    Zahl := Zahl + I;
WriteLn(IntToStr(Zahl));
ReadLn;