program prostidoN;

var

i,n:longint;

izlaz:text;

function prost(n: integer):boolean;

var

i,koren:integer;

q:boolean;

begin

koren:=round(sqrt(n));

q:=odd(n) or (n=2);

i:=3;

while q and (i<=koren) do

begin

q:=n mod i <> 0;

i:=i+2;

end;

prost:=q;

end;

begin

assign(izlaz,'prosti.out');

rewrite(izlaz);

writeln('Unesite broj n:');

readln(n);

for i:= 1 to n do

if prost(i) then

writeln(izlaz,i);

close(izlaz);

end.