Факториалы в паскале

[lelikoff]

Дана задача, звучит она так:
Даны натуральные числа m и n. Получить
(m!+n!)/(m+n)!
Для вычисления факториала в программе предусмотреть
функцию.

Заранее благодарен!

[mifomen]

uses crt;
var n,m,b:integer; s:real;
function fl(var d:integer):longint;
var c:longint; i:integer;
begin
   i:=1;c:=1;
 while i<=d do
  begin   c:=c*i;   inc(i);  end;    fl:=c;
end;
begin clrscr;
writeln('Vvedite N & M ');readln(n,m);
 b:=n+m; s:=(fl(m)+fl(n))/(fl(b)); writeln(s:13:2);readkey
end.

[lelikoff]

Спасибо огромное! Очень выручили!