lama_byterun/regression/test020.lama

var s, n, p;

s := 0;
n := read ();
p := 2;

while n > 0 do
    var c = 2;
    var 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