if whileブロックセット一斉削除改良１