Question

Привет
Пожалуйста напиши Паскаль
Спасибо

Answer 1

===== PascalABC.NET =====

function nF(n: integer) := Range(1, n).Product;

begin

 SeqGen(5, i -> nF(i), 1).Sum.Println

end.