program Bai1;
var
n, i, d: integer ;
A: array [1..1000] of integer;
begin
write[‘ nhap so n:’];
read[n];
for i: = 1 to n do:
begin
writeln[‘so han thu A[‘,i,’]=’];
read[A[i]];
end;
for i:=1 to n do if A[i]mod2=0 and A[i]mod3=0 then inc[d]; write[‘co ‘,d ‘ vua chia het cho 2 vua chia het cho 3’];
readln
end.