program Menghitung_kombinasi;

uses
wincrt;
procedure faktorial(var fak,hasil:real);
var i:integer;
begin
i:=1;hasil:=1;
while i<=fak do
begin
hasil:=hasil*i;
i:=i+1;
end
end;
var
n,r,nr,c,f1,f2,f3:real;
begin
writeln;
writeln;
writeln('************************************************');
writeln;
writeln('--------------ANDIKASUHERNAWAN----------------');
Writeln('-------------------111221016--------------------');
writeln('------------------Semester 2B-------------------');
writeln;
writeln('================================================');
writeln('Program Menghitung Jumlah Kombinasi Yang terjadi');
writeln('================================================');
writeln;
write('Masukkan Banyaknya Data Yang Di Kombinasikan =');readln(n);
writeln;
write('Masukkan Banyaknay Kombinasi =');readln(r);
nr:=n-r;
writeln;
writeln('Pengurangan N-R =',nr:4:0);
faktorial(n,f1);
faktorial(r,f2);
faktorial(nr,f3);
c:=f1/(f2*f3);
writeln('================================================');
writeln;
writeln('Jumlah Kombinasi Yang Terjasi adalah =',c:4:0);
writeln('================================================');
writeln;
writeln('************************************************');
end.