Напишите программу ввести одномерный массив a из 11 элементов. определить в нём сумму элементов, значения которых лежат вне диапазона [−1; 5].

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var b:=ReadArrInteger('->',11);
  Writeln('S=',b.Where(x->(x<-1) or (x>5)).Sum)
end.