uses crt ;
  var a : array [1..101] of longint ;
 n, i, dc, dl : longint ;
begin
    clrscr ;
        write('N=') ;
        readln(n) ;
    for i :=1 to n do
        begin
            write('a[',i,']=') ;
            readln(a[i]) ;
            if a[i] mod 2=0 then
                dc := dc + 1 
            else 
                dl := dl + 1 ;
        end ;
    writeln('co',dl:3,' so le va co',dc:3,' so chan trong day!!') ;
        readln
            end .

uses crt;
var n,i,c,b: integer;
    a: array[1..100] of integer;
begin
clrscr;
write('Nhap so luong: ');   readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 2 = 0 then inc(c);
if a[i] mod 2 <> 0 then inc(b);
end;
write('So luong cac so le la: ',c);
write('So luong cac so chan la: ',b);
readln;
end.