/* Verallgemeinerte hypergeometrische Verteilung */
data a;
n=400;
n1=200;
k=200;
k1=110;
rho=2.5;
p=probhypr(n,n1,k,k1,rho);
output;
run;
proc print;
run;