begin
var a := ArrRandom(15, -50, 50);
a.Println;
a.IndexesOf(t -> t > 0).Select(t -> t + 1).Println
end.
