pascal-subsluts کلپس (1137)