program nhap;
uses crt;
var A:array [1..1000] of integer;
n,i,dem:integer;
begin
writeln ('nhap vao so phan tu cua mang');readln (n);
for i:=1 to n do readln (A[i]);
write ('cac so chia het cho 3  la: ');
for i:=1 to n do
if (A[i] mod 3 =0) then
begin
write (A[i]);
dem:=dem+1;
end;
writeln ('co tat ca ',dem,' so chia het cho 3');
readln end.