===== PascalABC.NET =====
begin
var a :=ArrRandom(8, 0, 200);
a.Println;
a.Where(p -> p.IsOdd).Sum.Println
end.
