Подсчитать сумму всех чётных чисел от 10 до 124 — Pascal(Паскаль)

Program lolo; 
var i,sum:integer;
Begin
Sum:=0;
i:=10;
repeat
 
Sum:=sum+i;
i:=i+2;
until(i>125);
writeln('sum =',sum);
end.