Задача 4 Урок 22

Задача 4 Урок 22 Дано целое положительное число N. вычислите N! (эн факториал).

var
  n :integer ;

function factorial(n :integer):integer;
begin
  if (n = 0) then  // если 0
    result := 1    // то выход из рекурсии
  else
    result := n * factorial(n-1);  // рекурсивный вызов 5 * factorial(4)...4 * factorial(3)  и т. д пока n  не станрет 0
end;

begin
  writeln('enter');
  readln(n);
  writeln('factorial egually: ');
  writeln(factorial(n));
  readln();
end.           

Вывод консоли:

enter
6
factorial egually:
720