Помогите не понимаю. Очень срочно!!!

Это рекурсивная функция, она вычисляет творенье целых чисел от 1 до n, то есть n!. Используется формула n!=(n-1)!*n.

Ответ:

Программа показывает вычисление факториала методом рекурсивного вызова функции.

program f;                  

(название программы)

  var n:integer;          

( декларирование целой переменной n)

function fr(n:integer)

( декларирование функции fr с одним целым параметром)

begin                          

(начало функции тела функции fr)

   if n=1 then fr:=1        

(если параметр равен 1, функция отдаёт 1)

            else fr:=fr(n-1)*n;  

(по другому, рекурсивно вычисляет факториал)

end;                                  

(конец тела функции)

begin                                

(начало тела программки)

write('Enter a number: ');  

(вывод на экран строки "введите число")

readln(n);                          

(перевод строчки, ожидание ввода, присвоение n введенного                числа)

res:=fr(n);                          

(вызов функции fr и присвоение ее значения переменной res)

writeln('Answer: ', res);

(выводим на экран итог)

read;

(ждем нажатия хоть какой клавиши)

end.

(конец тела программы)

я тоже не разумею жто у вас информатика?