{ Автор: Винарский Евгений <[email protected]>, 112 гр.}
program t_11_30(input,output);
type
  neotr=0..maxint;
function F(m,n: integer): integer;
var i,k: integer;
  function fact(h: integer): integer;
  var i: integer;
  begin
    h:=1;
    for i:=2 to h do
      h:=h*i;
    fact:=h;
  end;
begin
  F:=fact(n)*fact(m)/(fact(n+m));
end;