program bt;
uses crt;
var a: array[1..100] of integer;
      chan,le,i,n: integer;
begin
  write('Nhap so phan tu: ');readln(n);
  for i:=1 to n do begin write('A[',i,']=');readln(a[i]); end;
  write('Cac phan tu chan trong mang la: ');
  for i:=1 to n do 
     if a[i] mod 2 = 0 then write(a[i]:5);
  chan:=0; le:=0;
  for i:=1 to n do 
     if a[i] mod 2 = 0 then chan:=chan+1
     else le:=le+1;
  writeln('So phan tu chan la: ',chan);
  writeln('So phan tu le la: ',le);
readln
end.