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

program zz1;

var r, i:integer; / / задаем переменные целого типа

begin

for i:=10 to 99 do / / организуем цикл, в котором переберем все двухзначные числа от 10 до 99

r:=r + i; / / вычисляем сумму чисел от 10 до 99 по формуле

write (' сумма всех двухзначных чисел от ', 10,' до ', 99,' = ', r); / / выводим ответ

end.