функции

[malenkaya]

13. Найти значение выражения , где n! означает факториал числа n (n! = 1. 2. …. n). Определить функцию для расчета факториала натурального числа.

[Cody M.]

function fact(n: integer): integer;
var
  i: integer;
begin
  result := 1;
  for i := 1 to n do
    result := result * i;
end;

var
  n: integer;

begin
  write('Введите число n: ');read(n);
  writeln('n!=', fact(n));
end.