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