Program Hitung Kombinasi (Faktorial)

berikut adalah list program untuk membuat program menghitung kombinasi dari pascal...
lets do it...!!!


program kombinasi_faktorial_adi;
uses wincrt;
var
fn, fk, fn_k, Kombinasi : real;
i, n, k : integer;
begin
clrscr;
writeln(' PROGRAM HITUNG FAKTORIAL ');
writeln(' ======================== ');
writeln(' adi susanto ');
writeln;
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan k =');readln(k);
writeln;
writeln;
fn:=1;
fk:=1;
fn_k:=1;
for i:= 2 to n do {Menghitung n faktorial}
fn:=fn*i;
for i:= 2 to k do {Menghitung k faktorial}
fk:=fk*i;
for i:= 2 to (n-k) do {menghitung n-k faktorial}
fn_k:=fn_k*i;
kombinasi:=fn/(fk*fn_k);
writeln('jadi',n,' Kombinasi ',k, ' = ',Kombinasi:0:0);
end.