Упростите логическое выражение до двух логических операций

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

begin
  var a:=ArrRandom(ReadInteger('n='),-11,11); a.Println;
  // 1
  begin
    var s:=a.Where(t->t<0);
    if s.Count=0 then
      Writeln('1. Нет отрицательных элементов')
    else
      Writeln('1. Первый отрицательный элемент номер ',
          a.IndexOf(s.First)+1)
  end;
  // 2
  begin
    var s:=a.Select((v,i)->(v,i)).Where(t->(t[0]>0) and t[0].IsEven);
    if s.Count=0 then
      Writeln('2. Нет четных положительных элементов')
    else begin
      var r:=s.Last;
      Writeln('2. Последний четный положительный элемент номер ',r[1]+1,
          ', значение ',r[0])
      end
  end;
  // 3
  begin
    var s:=a.Select((v,i)->(v,i)).Where(t->t[0] mod 5=0);
    if s.Count<2 then
      Writeln('3. Нет двух элементов, кратных 5')
    else
      Writeln('3. Номер второго элемента, кратного 5, равен ',
          (s.Skip(1).Take(1)).First[1]+1)
  end;
  // 4
  begin
    var s:=a.Select((v,i)->(v,i)).Where(t->t[0]=0);
    if s.Count<3 then
      Writeln('4. Нет трех нулевых элементов')
    else begin
      s:=s.Skip(1).Take(2);
      Writeln('4. Количество положительных элементов между ',
          'вторым и третьим нулевыми элементами равно ',
          a[s.First[1]+1:s.Last[1]].Where(t->t>0).Count)
      end
  end;    
  // 5
  begin
    var s:=a.IndexesOf(t->t>0).Take(4).Select(t->t+1);
    if s.Count<4 then
      Writeln('5. Нет четырех положительных элементов')
    else begin
      Write('5. Номера первых четырех положительных элементов: ');
      s.Println
      end
  end;
  // 6
  begin
    var s:=a.IndexesOf(t->t<0);
    if s.Count=0 then
      Writeln('6. Нет отрицательных элементов')
    else
      Writeln('6. Номера первого и последнего отрицательных элементов: ',
          s.First+1,' ',s.Last+1)
  end;
  // 7
  begin
    var s:=a.IndexesOf(t->t>0);
    if s.Count=0 then
      Writeln('7. Нет положительных элементов')
    else begin
      var i1:=s.First;
      s:=a.IndexesOf(t->t<0);
      if s.Count=0 then
        Writeln('7. Нет отрицательных элементов')
      else begin
        var i2:=s.Last;
        Writeln('7. Количество четных элементов между первым ',
            'положительным и последним отрицательными элементами: ',
            a?[i1+1:i2].Where(t->t.IsEven).Count)
        end
      end  
  end
end.

1. телефонная линия, поскольку работает на низкой частоте, радиоволны (wi-fi, спутниковая связь) плохо проникают в землю. коаксиальный кабель, витая пара, оптоволоконная линия - экономически нецелесообразны для передачи небольших объемов данных (речь, звук)
2. Для локальной сети подойдет витая пара, как наиболее экономически целесообразная в локальной сети, коаксиальный кабель считает устаревшим, с узкой полосой пропускания, wi-fi может быть использован, если площадь здания небольшая, а коэффициент поглощения радиоволн стенами минимален.
3. В обсерватории подойдет спутниковый канал связи, поскольку тарелку на спутник возможно настроить, но для относительно медленных соединения может быть использован радиоканал.
4. поскольку завод секретный, использовать радиоканалы не безопасно. Подойдет оптоволоконная линия и витая пара, имеющие наиболее высокую пропускную
5 Радиовещательные компании ведут трансляцию по коаксиальному кабелю, поскольку в большинстве случает не требуется высокая скорость для передачи звука, но в то же время требуется помехозащищенность, но в зависимости от расположения передающего центра и абонентов, могут быть использованы любые трансляции за исключением телефонной линии.