var
n, a, i, count: integer;
begin
count := 0;
readln(n);
for i := 1 to n do
readln(a);
if a mod 4 = 0 then
count := count + 1
end;
writeln(count);
end.
var
n, a, i, count: integer;
begin
count := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if a mod 4 = 0 then
count := count + 1
end;
writeln(count);
end.