program chiaHet;

uses crt;

var a: array[1..100] of integer;

    i, n, d: byte;

begin

  clrscr; d:=0;

  write('nhap n = '); readln(n);

  for i:=1 to n do

      begin   

          write('a[', i, '] = ');

          readln(a[i]);

          if a[i] mod 6 = 0

              then inc(d);

      end;

  write('trong mang co ', d, ' so chia het cho 2 va 3');

  readln;

end.

 

program chia_het;

uses crt;

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

      n,i,d: byte;

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) and (A[i] mod 3=0) then d:=d+1;

         end;

         write('Trong day co ',d,' so chia het cho 2 va 3');

         readln;

End.