Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 программа получает вход в последовательности всегда имеется число кратное 5 количество чисел не превышает 1000 введенные числа не превышают 30000 программа должна вывести 1 число количество чисел кратных 5 пример работы программы входные данные выходные данные
4 3
10
8
15
20
var b,m,c,i:integer;
begin
readln(b);
m:=0;
readln(c);
for i:=2 to b do begin
if c mod 4=0 then m:=m+1;
readln(c);
end;
writeln(m);
end.
Объяснение: