program dem_chan;

uses crt;

var A:array[1..1000] of integer;

     n,i,d:integer;

begin

       clrscr;

       write('Nhap N: ');  readln(n);

       d:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

                     if A[i] mod 2=0 then d:=d+1;

              end;

       write('Co ',d,' so chan');

       readln;

end.

program sochan;

uses crt;

var A:array[1..300] of integer;

i,n,dem:nteger;

begin

clrscr;

writeln('nhap n = ');

readln(n);

for i:=1 to n do

begin

writeln('nhap phan tu thu ',i );

readln(a[i];

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2 = 0 then

dem:=dem+1;

writeln(' co so chan trong day la ',dem);

readln

end.