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

22 lines
292 B
Text

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