// PascalABC.NET 3.6.3
begin
var a := ArrRandom(20, -99, 99);
a.Println.Where(p -> p > 0).Product(p -> BigInteger(p)).Print
end.
