(define (Pascal x y)
(cond ((> y x) (display "error input"))
((= x 1) 1)
((= x 2) 1)
((= y 1) 1)
((= x y) 1)
(else
(+ (Pascal(- x 1) y) (Pascal (- x 1) (- y 1))
))))
(cond ((> y x) (display "error input"))
((= x 1) 1)
((= x 2) 1)
((= y 1) 1)
((= x y) 1)
(else
(+ (Pascal(- x 1) y) (Pascal (- x 1) (- y 1))
))))