Оператор Repeat. Найти сумму всех нечетных двузначных чисел.

Question

Оператор Repeat.
Найти сумму всех нечетных двузначных чисел.

Answer 1

Var a,s:integer;
begin
s:=0;
a:=9;
repeat
 a:=a+2;
 s:=s+a;
until a=99;
writeln('s = ',s);
end.

Результат:
s = 2475