uses crt; var a: array[1..150] of integer; n,i: integer; begin clrscr; write('Nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('Nhap gia tri cho phan tu thu ',i,': '); readln(a[i]); end; write('Ket qua: '); for i:=1 to n do if (a[i] mod 3 = 0) then write(a[i],' '); readln end.
