Найти сумму всех двузначных чисел.Решить используя цикл с параметром.(Паскаль)

Question

Найти сумму всех двузначных чисел.Решить используя цикл с параметром.(Паскаль)

Answer 1

Program enot;
Var i,s:integer;
begin
s:=0;
for i:= 10 to 99 do
s:=s+i;
write(s);
end.