Задача 3 Урок 20

Задача 3 Урок 20

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

var N,res : integer;

function Num(N : integer) : integer;
begin
  if (N = 0) or (N = 1) then
    result := 1
  else
    result := Num(N - 1) * N;
end;

begin
  readln(N);
  res := Num(N);
  writeln(res);
  readln;
end.