//This program tests a number to see if it is prime.

loop:
   x = keyin int2 ("Enter an integer (greater than 1): ")
   If (x<2) quit
   fact=factor(x)
   If fact Display x, " is divisible by ", factor(x)
   If !fact Display x, " is a prime number"                       
   Display
Goto loop