Program PascaL_Kombinasi

program kombinasi_faktorial;
uses crt;
var
fn,fk,fn_k,kombinasi:real;
i,n,k:integer;
begin
clrscr;
write('bilangan n =');readln(n);
write('bilangan k =');readln(k);
fn:=1;
fk:=1;
fn_k:=1;
for i:= 2 to n do
fn:=fn*i;
for i:= 2 to k do
fn_k := fn_k*i;
kombinasi:=fn/(fn*fn_k);
writeln(n,'Kombinasi',k,'=',kombinasi:4:2);
readln;
end.