var
a:array[1..100] of integer;
x,i:integer;
begin
x:=0;
for I:=1 to 100 do
read(a[i]);
if a[i] mod 2 = 0 then x:=x+1;
end;
writeln(x)
end.
var
a:array[1..100] of integer;
x,i:integer;
begin
x:=0;
for I:=1 to 100 do
begin
read(a[i]);
if a[i] mod 2 = 0 then x:=x+1;
end;
writeln(x)
end.