Programm fakt
var n, i, sum: integer; { инициализируем переменные }
begin { приступаем к выполнению }
Readln(n); { вводим значение длинны массива }
sum:=0; { обнуляем переменную для произведения }
For i:=1 to n Do Begin { запускаем массив, в котором будем считать произведение по форуме }
sum := sum * ( (i*i + i) div (i) ); { по этой формуле считаем сумма }
End; { конец массива }
Writeln('Произведение по факториалу равно - ', sum); { выводим на экран информацию }
End. { конец работы программы }