# TITLE:  Negative Binomial   
# AUTHOR: Andrew Rapp, arapp@vt.edu               
# DATE:   17Oct1996
# MAKE:   CASIO
# MODEL:  fx6300 or greater   
# SIZE:   76                  
#

@@ Program

Mcl
"K"?->K:"P"?->P:"X"?->X
K-1->K
X-1->X
(K!/X!(K-X)!*P^X(1-P)^(K-X)->D
"P(X=K)":D_