Program e2;
Var C, N, X:integer;
Begin
C := 0;
For N:= 1 to 10 do
Begin
Readln(X);
If X mod 2 = 0  then
C := C + 1
End;
Writeln(C)
End.