// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln(Range(2,200,2).Aggregate(BigInteger(1),(p,q)->p*q)) end.
Результат 118305033024544857808171402556304773068330423943453950860219552506842483018552459750131300382609551649116952455583587373444882662176634718152559553931916976653860864000000000000000000000000
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(2,200,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Результат
118305033024544857808171402556304773068330423943453950860219552506842483018552459750131300382609551649116952455583587373444882662176634718152559553931916976653860864000000000000000000000000