program HelloWorld;
uses crt;
function factorial(n : longint) : longint;
begin
		if (n>0) then
			begin
				factorial:= n*factorial(n-1);
			end
			else
				factorial:= 1;
	end;
var
n : longint;
r : longint;
x : Real;
begin
readln(n);
readln(r);
x := factorial(n)/ ( factorial(r) * factorial (n-r));
Writeln(n,' kombinasi ',r, ' adalah ', factorial(n));
Readln;
end.