program baitap;
uses crt;
var a:array[0..10000007] of longint;
i,n,d:longint;
begin
clrscr;
write('Nhap vao so luong phan tu: ');readln(n);
write('Nhap vao ',n,' phan tu: ');
d:=0;
for i := 1 to n do
begin
read(a[i]);
if (a[i] mod 2 = 0)
then inc(d);
end;
writeln('So luong so chan: ',d);
readln;readln;
end.