--- PascalABC.NET 3.6.2 ---
begin
var A := ArrRandom(30, 0, 1000);
A.Where(p -> p mod 2 = 0).Sum.Println;
end.
--- PascalABC.NET 3.6.2 ---
begin
var A := ArrRandom(30, 0, 1000);
A.Where(p -> p mod 2 = 0).Sum.Println;
end.