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

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

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

function inputF(a :integer) :integer;
begin
  if 1 < a then 
    a := a * inputF(a - 1);
  inputF := a;
end;

begin
  write(inputF(4));
  readln();
end.