Для какого максимального числа х истинно выражение: не (х>5)и(x<3)​

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

#include <iostream>
#include <string>

using namespace std;

#define IN 1 //внутри слова
#define OUT 0 //вне слова

int main()
{
    string s;
    getline(cin, s);
    int state = OUT; //позиция
    s = ' ' + s + ' ';
    int k = 0; //позиция начала слова
    for (int i = 0; i < s.size(); i++)
        if (s[i] == ' ') {
            if (state == IN && s[k] == s[i - 1])
                cout << s.substr(k, i - k + 1) << endl;
            state = OUT;
        } else if (state == OUT) {
            k = i;
            state = IN;
        }
    return 0;
}