Написать функцию вычисления факториала - Turbo Pascal

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

Написать функцию «Факториал» и программу, использующую эту функцию для вывода таблицы факториалов. Напишите пожалуйста всю задачу.

Решение задачи: «Написать функцию вычисления факториала»

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

function f(n: Integer): Longint;
const
  m: Integer = 1;
  r: array [0..10] of Longint = (1,1,0,0,0,0,0,0,0,0,0); {жаль синтаксис требует значения для каждого эл-та}
begin
  if n>m then begin
    for m:=m+1 to n do r[m]:=r[m-1]*m;
    m:=n;
  end;
  f:=r[n];
end;

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

В функции f объявлена переменная n, которая имеет тип Integer (целое число).
В строке const объявлены две константы: m и r. Переменная m также имеет тип Integer и инициализируется значением 1. Переменная r объявляется как массив целых чисел array [0..10] of Longint, и инициализируется значениями (1,1,0,0,0,0,0,0,0,0,0).
В условии if n>m проверяется, что значение переменной n больше значения переменной m.
Если условие истинно, то выполняется цикл for m:=m+1 to n do, который проходит от m до n с шагом 1.
Внутри цикла переменная r[m] присваивается значению r[m-1]*m, где m-1 - это значение переменной m на предыдущем шаге цикла.
После завершения цикла, значение переменной m обновляется, чтобы соответствовать значению переменной n.
По завершении условий if и for, функция f присваивает себе значение r[n].
В итоге, функция f возвращает значение Longint, которое является результатом вычисления факториала числа n.