Вычислить значение выражения, используя процедуру без параметров - Turbo Pascal

Формулировка задачи:

Добрый вечер. Помогите пожалуйста с задачей Вычислить (2*5! + 3*8!)/(6! + 4!), используя процедуру без параметров.

P.S. Переделать данную программу. Вместо функции, сделать процедуру без параметров.

function fact(n:integer): longint;
var i,r: integer;
begin
 r:=1;
 if (n=0) or (n=1) then
  fact:=1
 else
  for i:=1 to n do
   r:=r*i;
 fact:=r;
end;
 
begin
 writeln((2*fact(5)+3*fact(8))/(fact(6)+fact(4)));
end.

UP. Срочно нужно. Помогите пожалуйста

Решение задачи: «Вычислить значение выражения, используя процедуру без параметров»

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

var n, f: integer;
    x, y: real;
 
procedure fact;
var i: integer;
begin
  f := 1;
  for i := 2 to n do f := f * i
end;
 
begin
  n := 5;
  fact;
  x := 2 * f;
  n := 8;
  fact;
  x := x + 3 * f;
  n := 6;
  fact;
  y := f;
  n := 4;
  fact;
  writeln(x / (y + f))
end.

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

Объявляются переменные n, f, x, y типа integer и real соответственно.
Создается процедура fact без параметров.
В теле программы переменная i инициализируется значением 2.
Переменная f инициализируется значением 1.
Запускается цикл for, который выполняется от 2 до n.
Внутри цикла значение переменной f умножается на значение переменной i и присваивается переменной f.
После завершения цикла переменная f инициализируется значением 1.
Переменная x инициализируется значением 2 * f.
Переменная n инициализируется значением 8.
Запускается новый цикл for.
Внутри цикла переменная x инициализируется значением 2 * f.
Переменная n инициализируется значением 6.
Запускается новый цикл for.
Внутри цикла переменная y инициализируется значением f.
Переменная n инициализируется значением 4.
Выполняется операция x / (y + f).
Результат операции выводится на экран.