paragraph_text: var a:array[1..150] of integer; ok:array[1..150] of boolean; i,n,k:integer; begin writeln('Unesite n '); readln(n); for i:=2 to n do  begin a[i]:=i; ok[a[i]]:=true; end; i:=2; while (i*i<=n) do  begin k:=i; while (k<n) do     begin k:=k+a[i]; ok[a[k]]:=false; end; i:=i+1; end; for i:=2 to n do    If ok[a[i]]=true then writeln(a[i]); readln; end.