// PascalABC.NET
begin
var a := ArrRandom(20, 100, 1000);
a.Println;
a.Batch(10).Select(p -> p.Sum).Println
end.
// PascalABC.NET
begin
var a := ArrRandom(20, 100, 1000);
a.Println;
a.Batch(10).Select(p -> p.Sum).Println
end.