Дано целое чисто n(> 0).найдите произведение n! =1**n (n-факториал).чтобы избежать целочисленного переполнения,вычислять это произведение с вещественной переменной и вывести его как вещественное число.

Program enot;
VAR  p:real;
i,n:integer;
BEGIN
p:=1; 
read(n); 
 for i:= n downto 1 do
  p:= p*i; 
 writeln(p:4:2);
  end.