In ra các số nguyên tố nhỏ hơn hoặc bằng N (N là số nguyên không âm được nhập từ bàn phím).

uses crt;
var n,t:longint;

function nt(n:longint):boolean;
var i:longint;
begin
    if n<2 then exit(false);
    for i:= 2 to trunc(sqrt(n)) do
        if n mod i=0 then exit(false);
        exit(true);
end;
begin
        read(n);
        for t:= 1 to n do if nt(t)=true then write(t,' ');
end.

uses crt;
var i,n:longint;
function nt(n: qword): boolean;
var i:longint;
begin
nt:=false;
if n<2 then exit;
for i:=2 to n div 2 do
if n mod i=0 then exit;
nt:=true;
end;
begin
readln(n);
repeat
inc(i);

if nt(i) then write(i,' ');

until i=n;
readln
end.