親切にプログラムまで書いていただきありがとうございます。