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

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.