Program Permutasi dan Kombinasi

program permutasi_kombinasi;
uses wincrt;
var
a,b,a_k,kombinasi,permutasi:real;
i,n,k:longint;
begin
writeln('MENGHITUNG PERMUTASI (P) DAN KOMBINASI (C):'); writeln;
write('banyaknya percobaan, n = '); readln(n);
write('banyaknya kejadian yang diharapkan muncul, 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;
writeln ('permutasi ',k,' dari ',n,' = ',n,' P ',k,' = ', permutasi :0:0);
writeln ('kombinasi ',k,' dari ',n,' = ',n,' C ',k,' = ', kombinasi:0:0);
end.

Output program permutasi & kombinasi dalam Pascal