ゆうさんのプログラムを参考にしました。 皆さんご回答ありがとうございました。