for文応用④改

④が原因不明のクラッシュを連発するので、④改を作成した。