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

Задача 4 урок 20

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

program u20z4;
var n:integer;
function fun(n1:integer):integer;
begin
  if (n1=1) then
    result:=1
  else
   result:=n1*fun(n1-1);
end;
begin
  writeln('vvedite n');
  readln(n);
  writeln(fun(n));
  readln();
end.