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

var f:real; i,n:longint;beginwrite('Write n: ');readln(n);f:=1;for i:=1 to n do begin f:=f*i; end;writeln('fact: ',f:0:0);end.