100 REM 2以上の自然数を入力すると，素数か否かを判定する
110 INPUT n
120 IF MOD(n,2)=0 THEN
130   IF n=2 THEN PRINT "素数" ELSE PRINT "合成数"
140 ELSE
150   FOR i=3 TO SQR(n) STEP 2
160     IF MOD(n,i)=0 THEN EXIT FOR 
170   NEXT i
180   IF i<=SQR(n) THEN PRINT "合成数" ELSE PRINT "素数"
190 END IF
200 END
