pascal-subsluts クリップ (0) 4