Что представляют собой простые утверждения в сочетании с логическими связями, соответствующими логическим операциям?

Const
  m = 4;
  n = 3;

var
  a: array[1..m, 1..n] of integer;
  i, j, t: integer;
  p: longint;

begin
  Randomize;
  Writeln('Исходный массив');
  p := 1;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(19) - 9;
      Write(a[i, j]:3);
      if (abs(a[i, j]) < 1) or (abs(a[i, j]) > 5) then p := p * a[i, j]
    end;
    Writeln
  end;
  Writeln('Произведение элементов с модулем вне [1;5] равно ', p)
end.

Тестовое решение:
Исходный массив
 -8  2  7
 -3 -8  5
  1 -4 -3
  6  9  6
Произведение элементов с модулем вне [1;5] равно 145152

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
procedure LinearSearch(a,b:integer;M:array of integer;
  var num:integer);
// num - номер по порядку первого элемента массива М,
// находящегося на [a;b] или 0, если такого элемента нет
begin
  num:=0;
  for var i:=0 to Length(M)-1 do
    if M[i] in [1..5] then begin num:=i+1; break end
end;

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var i:integer;
  LinearSearch(1,5,a,i);
  if i>0 then Writeln('Элемент номер ',i,' принадлежит [1;5]')
  else Writeln('Нет элементов, принадлежащих [1;5]')
end.

Тестовое решение
n= 15
-96 50 20 -2 3 77 -48 15 99 -53 42 -45 24 44 51
Элемент номер 5 принадлежит [1;5]