OPTION ARITHMETIC decimal_HIGH
PRINT
INPUT PROMPT "全体集合内の最高の自然数？ ":n
PRINT
DIM A(n)
LET C=1
FOR i=1 TO n
   IF SOSU(i)=1 THEN
      LET A(C)=i
      LET C=C+1
   END IF
NEXT i
FOR i=1 TO C-1
   PRINT " ";A(i);
   IF MOD(i,10)=0 THEN
      PRINT " "
   END IF
NEXT i
PRINT
END

EXTERNAL FUNCTION  SOSU(x)
OPTION ARITHMETIC decimal_HIGH
IF x=1 THEN
   LET SOSU=-1
ELSEIF x=2 THEN
   LET SOSU=1
ELSE
   LET SOSU=1
   FOR i=2 TO x-1
      IF MOD(x,i)=0 THEN
         LET SOSU=-1
         EXIT FOR
      END IF
   NEXT i
END IF
END FUNCTION