Описать функцию Fact(N) целого типа, вычисляющую значение факториала N! - Free Pascal

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

Описать функцию Fact(N) целого типа, вычисляющую значение факториала N! = 1•2•...•N (N > 0 – параметр целого типа). С помощью этой функции вычислить факториалы 3 данных чисел. Заранее спасибо.

Решение задачи: «Описать функцию Fact(N) целого типа, вычисляющую значение факториала N!»

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

procedure Fact(n:integer; var result:integer);
var i,res: Integer;
begin
    res := 1;
    for i := 1 to n do
        res := res * i;
    result := res;
end;
 
var x,k: Integer;
 
begin
Write('Enter ! - ');
ReadLn(x);
Fact(x,k);
WriteLn(x,'! = ',k);
ReadLn;
end.

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

Объявлена процедура Fact(N: integer; var result: integer) для вычисления факториала N!
В процедуре объявлены две переменные i и res типа Integer.
Переменная res инициализируется значением 1.
Задается цикл for от 1 до N, где N - это значение переменной n.
Внутри цикла значение переменной res умножается на текущее значение i.
После завершения цикла, значение переменной res присваивается переменной result.
В основной программе объявлены две переменные x и k типа Integer.
Пользователю предлагается ввести значение x для вычисления факториала.
Вызывается процедура Fact(x, k), где x - это значение переменной x, а k - это переменная result.
Выводится сообщение с введенным значением x и его факториалом.
Программа ожидает ввода, чтобы завершить работу.