progam snt;
uses crt;
var n, i, j, d: longint;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Cac so nguyen to tu 1 den ',n,': ');
for i:=1 to n do
begin
d:=0;
for j:=2 to (i div 2) do
if i mod j=0 then
d:=d+1;
if d=0 then
write(i,' ');
end;
readln;
end.