Напишите программу, которая определяет сумму цифр кратных 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.