DIM Z(10)
LET t=0
LET Z(1)=1
FOR b=0 TO 1
   LET Z(2)=b
   FOR c=0 TO 1
      LET Z(3)=c
      FOR d=0 TO 1
         LET Z(4)=d
         FOR e=0 TO 1
            LET Z(5)=e
            FOR f=0 TO 1
               LET Z(6)=f
               FOR g=0 TO 1
                  LET Z(7)=g
                  FOR h=0 TO 1
                     LET Z(8)=h
                     FOR i=0 TO 1
                        LET Z(9)=i
                        FOR j=0 TO 1
                           LET Z(10)=j
                           LET s=1
                           FOR x=2 TO 10
                              LET s=s+Z(x)
                              IF s<x/2 THEN GOTO 10
                           NEXT x
                           IF s<>5 THEN GOTO 10
                           FOR y=1 TO 10
                              PRINT Z(y);
                           NEXT y
                           PRINT 
                           LET t=t+1
10                         NEXT j
                        NEXT i
                     NEXT h
                  NEXT g
               NEXT f
            NEXT e
         NEXT d
      NEXT c
   NEXT b
   PRINT 
   PRINT "以上";t;"通り"
   PRINT
   PRINT "おつりを払える人への支払い順の場合の数 ＝ 5! ＝";5*4*3*2
   PRINT "おつりを払えない人への支払い順の場合の数 ＝ 5! ＝";5*4*3*2
   PRINT 
   PRINT "したがって、答えは、"
   PRINT "     ";t;"× 120 × 120 ＝";t*120*120;"通りです。"
   PRINT
   PRINT 
   PRINT "ちなみに、"
   PRINT "支払順のすべての場合の数は、10! ＝";10*9*8*7*6*5*4*3*2;"通りです。"
   PRINT "したがって、確率は、"
   PRINT "     ";t*120*120;"/";10*9*8*7*6*5*4*3*2;"＝ 1/6 ≒";100*ROUND(t*120*120/(10*9*8*7*6*5*4*3*2),3);"％です。"
END