FUNCTION PrimeQ(n)       ! 素数判定   1 : 素数、  0 : 素数でない
   LET PrimeQ=0
   IF n<2 OR n<>INT(n) THEN EXIT FUNCTION 
   IF MOD(n,2)=0 THEN
      IF n=2 THEN LET PrimeQ=1
   ELSE
      LET k=3
      DO WHILE k*k<=n      ! ３〜√n の奇数のみで検証する
         IF MOD(n,k)=0 THEN EXIT FUNCTION 
         LET k=k+2
      LOOP
      LET PrimeQ=1
   END IF
END FUNCTION

INPUT PROMPT "どの数辺りを調査？":x
LET W = 1
FOR i=2 TO x
   IF PrimeQ(i) = 1 THEN LET W = W * (i-1)/i
NEXT i
PRINT 
PRINT "素数である確率の予測値： "; W
PRINT
END