1ExtreMaker1 На каком языке написать?

Ленгит Var sum,i:integer;
begin
i:=2;
sum:=0;
repeat 
sum:=sum+i;
i:=i+2;
until  i>9;
write(sum);
end.



var sum,i:integer;
begin
i:=10;
sum:=0;
repeat 
sum:=sum+i;
i:=i+1;
until  i>99;
write(sum);
end.