program chia_het_3;

uses crt;

var B:array[1..300] of integer;

      n,i,d:integer;

begin

       clrscr;

       write('Nhap n: ')  readln(n);

       for i:=1 to n do

              begin

                     write('B[',i,']= ');  readln(B[i]);

              end;

       d:=0;

       for i:=1 to n do

              if B[i] mod 3=0 then

                     begin

                            write(B[i],' ');

                            d:=d+1;

                     end;

       writeln;

       writeln('`=>` Co ',d,' so chia het cho 3');

       readln;

end.

uses crt;
var b:array [1..300] of integer;
 i,n: integer;
begin
       clrscr;
       write('Nhap so phan tu cua mang: ');  readln(n);
for i:=1 to n do begin
 write('b[',i,']='); readln(b[i]); end;
        write('So chia het cho 3 la: ');
for i:=1 to n do
 if b[i] mod 3 = 0 then write(b[i],' ');
       readln;
       end.

đã test mong đc vote