menghitung combinasi dengan pascal

       uses crt;

var

hasil,n,r: integer;

combinasi:longint;

procedure faktorial( n : integer);

var i : integer;

begin

  hasil:=1;

  for i :=1 to n do

    hasil:=hasil*i;

end;

procedure comb(n,r : integer);

var a,b,c: longint;

begin

faktorial(n);

a:=hasil;

faktorial(r);

b:=hasil;

c:=n-r;

faktorial(c);

c:=hasil;

combinasi:=a div(b*c);

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

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);

comb(n,r);

readln;

end.