Функция факториала - Turbo Pascal

Разрешите обратиться с программой Необходимо описать функцию вычисления факториала и использовать ее для вычисления выражения: F=(n!*m!)/(n+m)!

Листинг программы

function fact(j: Integer): Integer;
var i, f: Integer;
begin
  f := 1;
  for i := 2 to j do f := f * i;
  fact := f
end;

Объяснение кода листинга программы

В функции fact объявлены две переменные i и f, которые будут использоваться в цикле.
Переменная f инициализируется значением 1.
Запускается цикл for, который начинается с i равным 2 и продолжается до j.
Внутри цикла переменная f умножается на значение переменной i.
После завершения цикла, значение переменной f присваивается переменной fact.
Функция fact возвращает значение переменной fact, которое является факториалом числа j.