Задание 4 Урок 22

Задание 4 Урок 22

Дано целое положительное число N, вычислите N! (эн факториал)

var
  N :integer ;

function factorial(n :integer):integer;
begin
  if (n = 0) then
  begin
    result := 1
  end
  else
  begin
    result := n * factorial(n-1);
  end;
end;

begin
  writeln('Vvedite chislo');
  readln(N);
  writeln('factorial raven: ');
  writeln(factorial(N));
  readln();
end.  

консоль:

Vvedite chislo
5
factorial raven: 
120