Program  TenCT;
Uses   crt;
Var  A: array[1..100] of longint;
       i,n,dem:longint;
Begin
          Clrscr;
          Write('Nhap so phan tu cua day n= ') readln(n);
          For i:=1 to n do
            begin
              write('A[',i,']= '); readln(A[i]);
            end;
          dem:=0;
          Writeln('Cac so chan chia het cho 3 la: ');
          For i:=1 to n do
            if (A[i] mod 2=0) and (A[i] mod 3=0) then 
              begin
                 write(A[i],' ');
                 dem:=dem+1;
              end;
           Writeln('Co ',dem,' so thoa man');
           readln;
end.