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

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

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

var N: integer;

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

begin
  writeln('vvedite N>0 (int)');
  readln(N);
  writeln(pow(N));
  readln();
end.