PRINT
PRINT "なるべく少数の貨幣を使用して支払う（２千円札は含まない）"
PRINT
INPUT PROMPT "何円？ ":n
PRINT
DIM A(9),B(9),C$(9),D$(9)
MAT READ B
DATA 10000,5000,1000,500,100,50,10,5,1
MAT READ C$
DATA "一万円札","五千円札","千円札","五百円玉","百円玉","五十円玉","十円玉","五円玉","一円玉"
MAT READ D$
DATA "枚","枚","枚","個","個","個","個","個","個"
LET Q=0
FOR i=1 TO 9
   LET A(i)=INT(n/B(i))
   LET n=n-A(i)*B(i)
   LET Q=Q+A(i)
NEXT i
FOR i=1 TO 9
   IF A(i)<>0 THEN
      PRINT USING "##########":C$(i);
      PRINT " : ";A(i);D$(i)
   END IF
NEXT i
PRINT "==============================="
PRINT "   合計で    ";Q;" 枚 または 個"
PRINT
END