cau 5

program cau5;
uses crt;
var i,n,s,t:integer;

begin
 clrscr;s:=0;
 write('Nhap n= ');readln(n);
 for i:=1 to n do
  begin
   write('a[',i,']= ');readln(t);
   if t mod 2 = 0 then inc(s);
  end;
  write('Day so co ',s,' so chan');
  readln;
end.