Напишите программу которая в последовательности натуральных чисел определяет количество чисел кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 4 количество чисел не превышает 1000 введенные числа не превышают 30000 Программа должна вывести одно число - количество чисел кратных 4

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.