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

Можешь объяснить прям, откуда ты "m" взял, просто очень надо, а так спасибо\

var b,m,c,i:integer;beginreadln(b);m:=0;readln(c);for i:=2 to b do beginif c mod 4=0 then m:=m+1;readln(c);end;writeln(m);end.