PROGRAM KOMBINASI
program comb;
uses wincrt;
var N,R,NR,F1,F2,F3:REAL;
c:real;
procedure fak(var f,hasil:real);
var i:integer;
begin
hasil:=1; i:=1;
while i<=f do
begin hasil:=hasil*i;
i:=i+1;
end;
end;
begin
writeln('MASUKKAN ANGKA YANG AKAN DIKOMBINASIKAN!');
write('x=');readln(N);
write('y=');readln(R);
NR:=N-R;
fak(N,F1);
fak(NR,F2);
fak(R,F3);
c:=F1/(F2*F3);
writeln('KOMBINASINYA ADA=',c:0:0);
end.
