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

Вот программа:
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.
>С этой функции найти факториалы пяти данных целых чисел.
                         - Вы не написали каких чисел