program SumTwoDigitNumbers;
varsum, i: integer;
beginsum := 0;
for i := 10 to 99 dobeginsum := sum + i;end;
writeln('Сумма всех двузначных чисел от 10 до 99: ', sum);end.
program SumTwoDigitNumbers;
var
sum, i: integer;
begin
sum := 0;
for i := 10 to 99 do
begin
sum := sum + i;
end;
writeln('Сумма всех двузначных чисел от 10 до 99: ', sum);
end.