// PascalABC.NET
begin
var a := ArrRandom(12, -10, 30);
a.Println;
var y := a.Where(p -> p > 0).Take(5).ToArray;
var n := y.Length;
Print(y.Product ** (1 / n))
end.
