日本語プログラミング言語Mindで金種の組み合わせ数計算

日本語プログラミング言語Mind で、支払金種の組み合わせ数を計算するプログラムを見つけたので載せます。（2000円札がない時代に書いたものです）
Mind無料ダウンロードサイト

プログラム

※    金種の組合せ数を表示　    

希望金額は      変数。
金種額は  定数配列  1 5 10 50 100 500 1000 5000 10000円。  
金種数は  金種額の  要素数。

希望金額を入力とは
        ここから
　　　　　　「希望金額＝  」と  改行してから  表示し        
　　　　　　  数値入力し　希望金額に  入れ
　　　　　　希望金額が　１  以上　ならば　終わり  つぎに
　　    繰り返すこと。

五十円以下での組合わせ数とは　（残額  －－＞  組合わせ数）
              Ｇは     変数
　　　　　　　　Ｇ５０は 変数
　　　　　　　　Ｇ１０は 変数
　　　　　　　　Ｇ５は   変数
　　　　　　　　組合わせ数は  変数
　　　　Ｇに  入れて
        [G50 := G / 50] 
        [G10 := G / 10]
        [G5 := G / 5]
        [組合わせ数 := (G50 + 1) *
          ((6 * G10 + 6) * (G5 - G10 + 1) + G50 * (50 * G50  - 15 * G5 - 5)) / 6]
         組み合わせ数を  返す。

金種の組合わせ数とは  関数  整数入力　整数入力　整数出力
（残額、金種番号－－＞組合わせ数） 
      　  　　　残額は    　　　変数
　　　　　　　　金種番号は  　　変数
　　　　　　　　現金種額は      変数
              　組合わせ数は    変数
　　　　残額と  金種番号に  入れて
　　　　金種番号が  ４と  等しい
　　　　　　ならば  残額の  五十円以下での組合わせ数を  返す
　　　　    さもなければ
                    金種額（金種番号）を  現金種額に  入れ
　　　　  　　　　　金種番号を  一つ減少し
            　　　　組合わせ数を  クリアし
                    残額を  現金種額で  割り  一つ加えただけ
　　　　　  　　　　回数指定し
　　　　　　　　　　    ※リカーシブ・コールです
　                      ［組合わせ数 ：＝  組合わせ数
                          ＋  金種の組合わせ数（残額、金種番号）］
　　　　　　　　　　    現金種額だけ  残額を  減少することを
                    繰り返してから
　　　　　　　　　　組合わせ数を  返す
　　　　　　　　つぎに。
メインとは
    「＊＊  金種の組合せ数を求める」と  表示し　改行する
  　ここから
        希望金額を入力する　
        「   : 組合せ数は」と  表示し
        ［金種の組合わせ数（希望金額、金種数）］を
        数値表示して
        「とおり。  」と  表示し
        「終了→E，継続→その他」と　表示し
　　　　文字列入力し　"E"に  等しい　　ならば　終わり　つぎに
　　繰り返す。

実行状況

＊＊  金種の組合せ数を求める

希望金額＝  10
 : 組合せ数は4とおり。  終了→E，継続→その他

希望金額＝  20
 : 組合せ数は9とおり。  終了→E，継続→その他

希望金額＝  50
 : 組合せ数は37とおり。  終了→E，継続→その他

希望金額＝  100
 : 組合せ数は159とおり。  終了→E，継続→その他

希望金額＝  1000
 : 組合せ数は248909とおり。  終了→E，継続→その他