PascalABC.NET 3.5.1 + .NET Framework 4.7.1
begin
var A := ArrRandom(Random(100), 50, 200);
A.Println;
A.Aggregate(BigInteger.One, (p, q) -> p * q).Println;
end.
