program chia_het;

uses crt;

var A:array[1..1000] of integer;

      n,i,d:integer;

begin

      clrscr;

      write('Nhap so luong phan tu: ');  readln(n);

      d:=0;

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

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

            end;

      write('Co ',d,' so chia het cho 3');

      readln;

end.

#Xuanthinh9112 

uses crt;

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

    i, n, s : integer;

begin

clrscr;

s := 0;

write('Nhap so phan tu = '); readln(n);

for i := 1 to n do

    begin

        write('Nhap so thu ', i ,' = '); readln(T[i]);

    end;

write('Cac so chia het cho 3 khong chia het cho 9 : ');

for i := 1 to n do

    if (T[i] mod 3 = 0) and (T[i] mod 9 <> 0) then

        begin

            write(T[i],' ');

            s := s + T[i];

        end;

writeln; write('Tong cac so = ', s);

readln

end.