uses crt;

var
x, top:integer;

begin

repeat
top:=top+x;
x:=x+2;
until (x>100);
writeln ( '1 den 100 e kadar tek sayılar toplamı : ', x);
end.

--------------------------
İstek Üzerine For do ile
--------------------------

uses crt;

var
x, top:integer;

begin

for x:=1 to 100 step 2 do
top:=top+x;

writeln ( '1 den 100 e kadar tek sayılar toplamı : ', x);
end.