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

Урок 21

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

var n: integer;

function path(n: integer): integer;
begin
  if n > 1 then
  begin
    n := n*path(n - 1);
  end;
  path := n;
end;

begin
  n := 6;
  WriteLn(path(n));
  readln();
end.

КОНСОЛЬ

720