begin
var a := arrRandomInteger(50);
a.Println;
a.Where(x -> Odd(x)).Sum.Println; //Нечетные
a.Where(x -> not Odd(x)).Sum.Println; //Четные
end.
