lama_byterun/regression/test020.expr
2019-09-19 18:37:08 +03:00

22 lines
272 B
Text

global s, n, p, c, f;
s := 0;
n := read ();
p := 2;
while n > 0 do
c := 2;
f := 1;
for c := 2, c*c <= p && f, c := c+1
do
f := p % c != 0
od;
if f != 0 then
if n == 1 then write (p) fi;
n := n - 1
fi;
p := p + 1
od