===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var (a, b) := ReadInteger2('Границы значений элементов [a, b]:');
var V := ArrRandom(n, a, b);
V.Println;
Writeln('Искомая сумма равна ', V.Where(p -> p < 9).Sum)
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var (a, b) := ReadInteger2('Границы значений элементов [a, b]:');
var V := ArrRandom(n, a, b);
V.Println;
Writeln('Искомая сумма равна ', V.Where(p -> p < 9).Sum)
end.