Дано целое число N (>0).Найти произведение N!=1*2*…*N (N-факториал).Чтобы избежать целочисленного переполнения,вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число — Pascal(Паскаль)

var
 f:real;
 n,i:integer;
begin
 write('n=');
 readln(n);
 f:=1;
 for i:=1 to n do
  f:=f*i;
 write(n,'!=',f:0:0);
 readln
end.

{$N+}
var
 f:rxtended;
 n,i:integer;
begin
 write('n=');
 readln(n);
 f:=1;
 for i:=1 to n do
  f:=f*i;
 write(n,'!=',f:0:0);
 readln
end.