pascal-subsluts クリップ (1141) 2