プログラムは以下の通り。