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

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

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

var n1:integer;
function vivod(N:integer):integer;
begin
  if n>1 then
  begin
    result:=n*vivod(n-1);
  end
  else
    result:=n;
end;
begin
  n1:=5;
  write(vivod(n1));
  readln();
end.