Описать функцию Fact (n) вещественного типа вычисляющую значение факториала...

Question

Описать
функцию Fact (n) вещественного типа вычисляющую значение факториала n!=1*2*3*..*n (n>0, параметр целого типа). С помощью этой функции найти
факториалы пяти данных целых чисел.

Answer 1

Вот программа:
var
 x:integer;

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

begin 
 readln(x);
 writeln(Fact(x));
end.
--------->С помощью этой функции найти факториалы пяти данных целых чисел.
                         - Вы не написали каких чисел