var s, n, p; s := 0; n := read (); p := 2; while n > 0 do ( var 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