program songuyento;
uses crt;
var n,i:integer;
function snt(k:integer):boolean;
var l:integer;
begin
snt:=false;
if k<2 then exit;
for l:=2 to trunc(sqrt(k)) do
if k mod l=0 then exit;
snt:=true;
end;
BEGIN
clrscr;
write('Nhap n: '); readln(n);
for i:=2 to n do
if snt(i) then write(i,' ');
readln
end.