function Cmn(m, n: word): word;
begin
if (m = 1) or (m = n) then
Cmn := 1
else
Cmn := Cmn(m - 1, n - 1) + Cmn(m, n - 1)
end;
var
m, n: word;
begin
write('enter m n: ');
readln(m, n);
writeln(Cmn(m, n));
readln
end.
function Cmn(m, n: word): word;
begin
if (m = 1) or (m = n) then
Cmn := 1
else
Cmn := Cmn(m - 1, n - 1) + Cmn(m, n - 1)
end;
var
m, n: word;
begin
write('enter m n: ');
readln(m, n);
writeln(Cmn(m, n));
readln
end.