Program Kombinasi_angka;
uses wincrt;
var
   f1,f2,f3:longint;
   n,r,w:integer;
   c: real;
Procedure fak( n:integer; var f:longint);
var
   i:integer;
begin
     f:=1;
     for i:=1 to n do
     f:= f * i;
end;
Begin                                                                                           
     clrscr;
     writeln('Mencari kombinasi dari suatu nilai');
     writeln;
     writeln('Nilai r harus lebih kecil/sama dengan n');
     write('1. Masukkan nilai n :',' ');readln(n);
     write('2. Masukkan nilai r :',' ');readln(r);                             
     fak(n,f1);
     fak(r,f2);
     w:=(n-r);
     fak(w,f3);
     c:= f1/(f2*f3);
     write('Hasilnya :',' ',c:2:0);
     readln;
end.