-------------

`Pascal`

----------------

program sch;

var 

    n,i,dem : integer;

    arr : array of integer;

begin

    write('nhap so phan tu : ');

    readln(n);

    dem := 0;

    setlength(arr,n);

    for i := 0 to n-1 do

    begin

        write('nhap phan tu : ');

        readln(arr[i]);

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

            dem := dem+1;

    end;

    writeln('so luong so chia het cho 3 va khong chia het cho 9 trong day la : ', dem);

    readln();

end.

____________________

`star` thay `4` dấu cách bằng `1` dấu tag

___________________

`~phudzz~`

#cod python

a=list(map(int,input().split()))

for x in a:

      if x%3==0 and x%9!=0:

            print(x)