uses crt;

var a : array[1..100] of integer;

i, n, d : byte;

begin

clrscr;

d := 0;

write('Nhap so nguyen duong n : '); readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i ,' : '); readln(a[i]);

if a[i] mod 3 = 0 then d := d + 1;

end;

write('Phan tu la boi cua 3: ');

for i := 1 to n do

if a[i] mod 3 = 0 then write(a[i]:4);

writeln;

writeln('Co ', d ,' phan tu la boi cua 3');

readln

end.

uses crt;
var i,n,d:longint; a:array[1..100]of longint;
begin
clrscr;
   write('Nhap n(n<=100): ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap A[',i,']: ');readln(a[i]);
      end;
   write('Cac phan tu la boi cua 3: ');
   for i:=1 to n do
      if a[i] mod 3=0 then
         begin
            write(a[i],' ');
            d:=d+1;
         end;
   writeln;
   writeln('Co ',d,' so la boi cua 3');
readln
end.