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

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.