uses crt;
var A : array [1 .. 100] of integer;
i, N : integer;
begin
clrscr;
write('Nhap N = '); readln(N);
write('Nhap day gom ', N ,' so : ');
for i := 1 to N do read(A[i]);
write('Cac so chia het cho 3 : ');
for i := 1 to N do
if A[i] mod 3 = 0 then write(A[i],' ');
readln
end.