uses crt;
var i,n:longint; a:array[1..1000000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
if a>1 then nt:=true else nt:=false;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then nt:=false;
end;
begin
clrscr;
write('Nhap N: ');readln(N);
for i:=1 to n do
begin
write('Nhap a',i,': ');readln(a[i]);
end;
write('Cac so nguyen to: ');
for i:=1 to n do if nt(a[i]) then write(a[i],' ');
readln
end.
