Пользавательские алгебраические функции.

[Diego90]

Program Z1;
var m,n:integer;
    Y:real;
    function fact(x:integer):integer;
begin
   if x=0
   then fact:=1
   else fact:=x*fact(x-1)
   End;
   Begin
   write('m=');readln(m);
   write('n=');readln(n);
   Y:=fact(fact(2*n+1))*fact(fact(2*n+1))/fact(fact(2*(n+m)+1));
   writeln('Y=',Y)
End.

То есть вот так?