pascal-subslutsクリップ(1) 3