NextPPrime(N:INT):INT
NextPPrime(1000); 1009 ------------------------------- NextPPrime(10^50); 100000000000000000000000000000000000000000000000151 -------------------------------