Tugas Struktur Data (3)

Program kombinasi;
uses wincrt;
var
   f1,f2,f3:longint;
   n,r,s: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('------=(( Program Kombinasi Matematika ))=------');
     writeln('________________________________________________');
     writeln('                                  *note : R <= N');
     writeln;
     write('> Masukkan Nilai N : ');readln(n);
     write('> Masukkan Nilai R : ');readln(r);
     writeln('------------------------------------------------');                           
     fak(n,f1);
     fak(r,f2);
     s:=(n-r);
     fak(s,f3);
     c:= f1/(f2*f3);
     write('  Kombinasi dari nilai di atas adalah : ',c:2:0);
     readln;
end.

Output dari script diatas : 

Kombinasi Matematika