Pascal'da yapamadığım bir soru ?

iyi geceler beyler pascal'da yapamadığım bir soru var da yardımcı olursanız sevinirim..

( 1'den 100'e kadar olan tek sayıların toplamını bulan program ? )

( for do ) ile

teşekkürler.

yardım eden yok mu arkadaşlar ?

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.

çok teşekkür ederim hocam ellerine sağlık iyi geceler