uses crt;
var i,j,d,n:longint;
begin
clrscr;
readln(N);
for i:=1 to n do
begin
 d:=0;
 for j:=1 to i do
  if i mod j=0 then d:=d+1;
 if d=2 then write(i,' ');
end;
readln
end.

giải thích:

+cho 1 vòng for chạy từ 1 đến n

+kiểm tra giá trị i của vòng for có phải là số nguyên tố hay ko

+nếu là số nguyên tố thì in ra nếu không phải thì bỏ qua