短縮したので再投稿 ただ、FORループをGOTOで脱出しているので お行儀はよろしくないなぁと