program nguyento;
var f,g:text;
n:integer;
{---chuong-trinh-con---}
function ktnt(k:integer):boolean;
var i:integer;
begin
ktnt:=false;
if k<2 then exit;
for i:=2 to trunc(sqrt(k)) do
if k mod l=0 then exit;
exit(true);
end;
{---Chuong-trinh-chinh---}
BEGIN
Assign(f,'SONGUYEN.TXT'); reset(f);
Assign(g,'SONGUYENTO.TXT'); rewrite(g);
while not eof(f) do
begin
readln(f,n);
if ktnt(n) then write(g,n,' ');
end;
close(f); close(g);
end.