===== PascalABC.NET =====
begin
var n := 10;
var a := ArrRandom(n, 1, 99);
a.Println;
var b := a[::2];
var r := b.Product ** (1 / b.Length);
r.Println
end.
