===== PascalABC.NET =====
begin
var x := ArrRandomReal(6, -4, 4);
x.Println;
x.Where(p -> Abs(p) < 2).Sum.Println
end.
