Program kombinasi dan permutasi

Program kombinasi dan permutasi
uses wincrt;
var
a,b,a_k,kombinasi,permutasi:real;
i,n,k:integer;
begin
writeln('menghitung kombinasi dan permutasi');
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 ('nilai ',n,'kombinasi',k,'=',kombinasi:0:0);
writeln ('nilai',n,'permutasi',k,'=',permutasi:0:0);
end.