uses crt;
var arr: array[1..100] of longint; n,i,sc,sl: byte;
begin
    clrscr;
    write('Nhap so luong phan tu: ');
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap gia tri cho phan tu thu nhat: ');
        readln(arr[i]);
    end;
    for i:=1 to n do
        if (arr[i] mod 2 = 0) then inc(sc) else inc(sl);
    write('Day so: ');
    for i:=1 to n do write(arr[i], ' ');
    writeln('So luong so chan la: ',sc);
    writeln('So luong so le la: ',sl);
    readln;
end.
    
    

program mang;

uses crt;

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

      n,i,d1,d2: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

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

                  if A[i] mod 2<>0 then d2:=d2+1;

         end;

         write('Day vua nhap: ');

         for i:=1 to n do write(A[i],'  ');

         writeln;

         writeln('Co ',d1,' so chan');

         write('Co ',d2,' so le');

         readln

End.