Sub

機能拡張をしました。
変数の命名が統一されていないのと、先頭の文字が大文字で始まるのは定数くらいなので、修正を！