program demsochan;
uses crt;
var a:array[1..100] of integer;
    i,n,dem:byte;
begin
clrscr;
   write(' ban muon nhap bao nhieu so? ');
   readln(n);
   for i:=1 to n do
   begin
      write(' nhap so thu [',i,']: ');
      readln(a[i]);
   end;
   dem:=0;
   for i:=1 to n do
   if a[i] mod 2=0 then
      dem:=dem+1;
   write(' co: ',dem,' so chan trong mang.');
   readln;
end.