PRINT
PRINT "�@ 〜 �E の数字が６個ずつあります。"
PRINT "この３６個の数字から５個の数字を選びます。"
PRINT "このとき、数字の組み合わせは、全部で何通り？"
PRINT

LET Z=0
FOR a=5 TO 0 STEP -1
   FOR b=5-a TO 0 STEP -1
      IF a+b=5 THEN 
         PRINT "�@";a;" �A";b;" �B 0  �C 0  �D 0  �E 0"
         LET Z=Z+1
         GOTO 50
      END IF 
      FOR c=5-a-b TO 0 STEP -1
         IF a+b+c=5 THEN
            PRINT "�@";a;" �A";b;" �B";c;" �C 0  �D 0  �E 0"
            LET Z=Z+1
            GOTO 40
         END IF
         FOR d=5-a-b-c TO 0 STEP -1
            IF a+b+c+d=5 THEN
               PRINT "�@";a;" �A";b;" �B";c;" �C";d;" �D 0  �E 0"
               LET Z=Z+1
               GOTO 30
            END IF
            FOR e=5-a-b-c-d TO 0 STEP -1
               IF a+b+c+d+e=5 THEN
                  PRINT "�@";a;" �A";b;" �B";c;" �C";d;" �D";e;" �E 0"
                  LET Z=Z+1
                  GOTO 20
               END IF
               FOR f=5-a-b-c-d-e TO 0 STEP -1
                  IF a+b+c+d+e+f=5 THEN
                     PRINT "�@";a;" �A";b;" �B";c;" �C";d;" �D";e;" �E";f
                     LET Z=Z+1
                     GOTO 10
                  END IF
10                NEXT f
20             NEXT e
30          NEXT d 
40       NEXT c
50    NEXT b
   NEXT a      
   PRINT
   PRINT Z;"通り"
   PRINT
END