для версий PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1 и выше
begin
var A := ReadArrInteger(7);
A.Where(p -> p < 4).Sum.Println;
end.
