uses crt; var i,n,d : integer; a : array[1..100] of integer; begin clrscr; d:=0; write('Nhap n:'); readln(n); for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]); end; for i:=1 to n do if (a[i] mod 2=0) and (a[i] mod 3=0) then d:=d+1; write('Co ',d,' so vua chia het 2 va 3 '); readln end.
