Program BinomiaL

program binomial;
uses wincrt;
var
a,b,a_k,komb,hasil,nilai,binomial,p:real;
i,n,x:longint;
begin
writeln('menghitung binomial');
writeln('masukkan nilai n ');readln(n);
writeln('masukkan nilai x ');readln(x);
writeln('p=');readln(p);
a:=1;
b:=1;
a_k:=1;
for i:=2 to n do
a:=a*i;
for i:=2 to x do
b:=b*i;
for i:=2 to (n-x) do
a_k:=a_k*i;
komb:=a/(b*a_k);
begin
hasil:=1;
for i:=1 to abs(x) do
hasil:=p*hasil;
end;
begin
nilai:=1;
for i:=1 to abs(n-x) do
nilai:=(1-p)*nilai;
end;
binomial:=komb*hasil*nilai;
write('n binomial p =',binomial);
end.