pascal-subsluts クリップ (1) 3