program Project7;
{$APPTYPE CONSOLE}
var x:array[1..100] of integer;
N,S,i:integer;
begin
writeln('Vvedit kilkist stovbiv');
readln(N);
for i:=1 to N do begin
writeln('Vvedit koordynatu ',i,' stovba');
readln(x[i]);
if x[i] mod 2=0  then
S:=S+1;end;
writeln('Stovpiv e ',S);
readln;
end.