var a:array[1..100] of integer;
i, d, n: byte;
Begin
Write('n = '); readln(n); d:=0;
For i:=1 to n do
Begin
Write('a[', i, '] = '); readln(a[i]);
If a[i] mod 3=0 then inc(d);
End;
Writeln('co ', d, ' so chia het cho 3');
Writeln('xuat nguoc mang: ');
For i:=n downto 1 do write(a[i], ' ');
Readln
End.