PRINT
PRINT "  サイコロを１回ずつ転がして移動させる。"
PRINT "６回行ったとき、元の目の数に戻って、かつ、"
PRINT "すべての目が出る確率は？"
PRINT
LET a=1
LET g=0
FOR b=2 TO 5
   FOR c=2 TO 6
      IF c-b=0 THEN GOTO 40
      FOR d=2 TO 6
         IF (d-b)*(d-c)=0 THEN GOTO 30
         FOR e=2 TO 6
            IF (e-b)*(e-c)*(e-d)=0 THEN GOTO 20
            FOR f=2 TO 5
               IF (f-b)*(f-c)*(f-d)*(f-e)=0 THEN GOTO 10
               IF (a+b-7)*(b+c-7)*(c+d-7)*(d+e-7)*(e+f-7)*(f+a-7)<>0 THEN
                  PRINT "        1"
                  PRINT "  ";f;"       ";b
                  PRINT
                  PRINT "  ";e;"       ";c
                  PRINT "       ";d
                  PRINT
                  LET g=g+1
               END IF
10             NEXT f
20          NEXT e
30       NEXT d
40    NEXT c
   NEXT b
   PRINT "この条件を満たす場合の数は";g;"通り です。"
   PRINT "すべての場合の数は、４の６乗です。"
   PRINT "したがって、求める確率は、";g;"÷";4^6;"≒ ";ROUND(100*g/4^6,2);"％ です。"
   PRINT
END