menghitung combinasi dengan pascal (fungsi)

uses crt;

var

hasil,n,r: integer;

combinasi:longint;

function faktorial( n : integer):longint;

var i : integer;

begin

  faktorial:=1;

  for i :=1 to n do

    faktorial:=faktorial*i;

end;

function comb(n,r : integer) : longint;

var a,b,c: longint;

begin

a:=faktorial(n);

b:=faktorial(r);

c:=n-r;

c:=faktorial(c);

comb:=a div (b*c);

end;

begin

clrscr;

writeln('diketahui rumus nCr');

writeln('dimana nCr= n!/r!(n-r)!');

write ('masukkan nilai n ');

readln(n);

write ('masukkan nilai r ');

readln(r);

hasil:=comb(n,r);

writeln('nilai ',n,'C',r,' adalah ',hasil);

readln;

end.