PascalABC.NET:

• ##
• var a := ArrRandom(120, 100, 999);
• var p := a[29:60].Aggregate(BigInteger.One, (a,x) → a*x);
• var s := a.Sum(x → x.Divs(6) ? x : 0);
• a.Println;
• Println('p:', p);
• Print('s:', s)