program prim; var i,j,p,n:integer; begin writeln('Meddig irassuk ki a primeket?'); readln(n); for i:=2 to n do begin p:=0; for j:=2 to round(sqrt(i)) do if i mod j=0 then p:=1; if p=0 then write(i:8); end; readln end.