Написать программу, которая находит сумму четных, однозначных чисел . написать программу, которая находит сумму двузначных чисел

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

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.