Program Pascal Permutasi, Kombinasi, dan Binomial

program permutasi_kombinasi;
uses wincrt;
var
a,b,a_k,kombinasi,permutasi:real;
i,n,k:integer;
begin
writeln('enghitung permutasi dan kombinasi');
write('Masukkan bilangan n = ');readln(n);
write('Masukkan bilangan k = ');readln(k);
a:=1;
b:=1;
a_k:=1;
for i:=2 to n do
a:=a*i;
for i:=2 to k do
b:=b*i;
for i:=2 to (n-k) do
a_k:=a_k*i;
kombinasi:=a/(b*a_k);
permutasi:=a/(a_k);
writeln(n,'kombinasi',k,'=',kombinasi);
writeln(n,'permutasi',k,'=',permutasi);
end.

program binomial;
uses wincrt;
var n,i,x,s,j,q:integer;
a,b,c, kombinasi,r,p,hasil,hasil2, z:real;
begin
writeln('menghitung dist binomial');

writeln('masukkan nilai n='); readln(n);
writeln('masukkan nilai x='); readln(x);
a:=1; b:=1; c:=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
c:=c*i;
kombinasi:=a/(b*c);
writeln (kombinasi);
writeln ('p pangkat x');
writeln ('masukkan p=');readln(p);
hasil:=1; for i:=1 to x do
hasil:=p*hasil;
writeln('hasil'); writeln(hasil);
begin
writeln ('r pangkat q');
writeln ('masukkan r=');readln(r);
writeln ('masukkan q=');readln(q);
hasil2:=1; for j:=1 to q do
hasil2:=r*hasil2;
writeln ('hasil',hasil2);
end;
begin
z:=kombinasi*hasil*hasil2;
writeln('binomial',z);
end;
end.