Program Kombinasi_Faktorial_dwipujilestari_2B111221034;
uses wincrt;
var f1,f2,f3:longint;
n,r,nr:integer;
c: real;
Procedure fact( n:integer; var f:longint);
var i:integer;
begin
f:=1;
for i:=1 to n do
f:= f * i;
end;
Begin
gotoxy(10,0);
writeln('DWIPUJILESTARI_2B');
writeln(‘111221034');
writeln('Program Kombinasi Faktorial');
writeln(' ');
write('data yang akan di kombinasikan  :',' ');readln(n);
write('jumlah kombinasi                            :',' ');readln(r);
fact(n,f1);
fact(r,f2);
nr:=(n-r);
fact(nr,f3);
c:= f1/(f2*f3);
writeln(' ');
write('hasil dari penghitungannya adalah:',' ',c:2:0);
readln;
end.

HASIL RUNNING