(define (fatorial n )
(if (= n 0 ) 1
(* n (fatorial (- n 1)))))

(define (arranjo n p)
 (/ (fatorial n) (fatorial(- n p))))
 

(write(arranjo 5 2))