Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. количество вводимых чисел вводится с клавиатуры.

Var c,b,v,r:integer;
begin
readln(c);
for b:=1 to c do
begin
readln(r);
If r mod 4 =0 then v:=v+1;
end;
writeln(v);
end.