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

var a, b:integer;

begin

a:=0;

for b:=10 to 99 do

a:=a+b;

writeln (a);

end.

program dvuznhacn_chisla;

a: array[1 ... 100] of integer

i: integer;

begin

writeln ('Заполняем массив двухзначными числами');

for i : = 10 to 99 do a[i] : = i;

writeln ('Подсчитываем сумму');

for i : = 10 to 99 do sum : = sum + a[i];

writeln ('Сумма всех двухзначных чисел равна', sum);

end.