Program Kombinasi

program kombinasi_herman;

uses
    WinCrt;

Procedure Fak(Var F,Hasil:integer);
Var
I:integer;

begin
     Hasil:=1;
     For I:=2 to F do Hasil:=Hasil*I;
end;

Var
R,N,NR,F1,F2,F3:integer;
C:real;

Begin

                           
  clrscr;
  writeln('-----------------------------------------');
  WRITEln('              Program kombinasi');
  writeln('         <=Silakan inputkan Data !=> ');
  writeln('-----------------------------------------');
  Write('Banyaknya Data Yang Dikombinasi = ');Readln(N);
  Write('Banyaknya Kombinasi = ');Readln(R);
  NR:=N-R;  
  Fak(N,F1);
  Fak(NR,F2);
  Fak(R,F3);

  C:=F1/(F2*F3);

  Writeln;
  Writeln('Kombinasi yang terjadi = ',c:10:0);
end.

Tampilannya .......