Напишите программу, которая определяет сумму цифр кратных 5

var a: array[1..10000] of integer;

i, n, m, sum: integer;

begin

writeln(\'Введите, с какого числа надо считать сумму\');

readln(n);

writeln(\'Введите, каким числом надо окончить считать сумму\');

readln(m);

writeln(\'Заполняем массив числами из промежутка\');

for i := n to m do a[i] := i;

writeln(\'Находим количество искомых чисел\');

for i := n to m do if a[i] mod 5 = 0 then sum := sum + a[i];

writeln(\'Сумма чисел из промежутка, кратных 5 равна\', sum);

end.