PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
Writeln('S=',
SeqGen(ReadInteger('n='),i->3*i+2).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
n= 41
S=260599710264842375457245866798717121802159545323074621538304000000000