Определить, принадлежит ли данная точка одному из отрезков, обоим или лежит вне их - Pascal ABC

Формулировка задачи:

Даны отрезки [a, b] и [c, d] и точка A с координатой х. Определить, принадлежит ли данная точка одному из этих отрезков, обоим или лежит вне их

Решение задачи: «Определить, принадлежит ли данная точка одному из отрезков, обоим или лежит вне их»

Листинг программы

const res: array [0..3] of string[40] = (
  'Точка x не принадлежит ни одному отрезку',
  'Точка x принадлежит отрезку ab',
  'Точка x принадлежит отрезку cd',
  'Точка x принадлежит обоим отрезкам');
var a, b, c, d, x: double;
    ab, cd: integer;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  write('d = ');
  readln(d);
  write('x = ');
  readln(x);
  if (a - x) * (b - x) <= 0 then ab := 1 else ab := 0;
  if (c - x) * (d - x) <= 0 then cd := 2 else cd := 0;
  write(res[ab + cd]);
  readln
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Создается константа res, которая представляет собой массив из 4 строк. Эти строки представляют возможные результаты проверки на принадлежность точки к отрезку или вне их.
Затем объявляются переменные a, b, c, d, x типа double и integer соответственно. Переменная x будет использоваться для хранения значения точки, которую мы будем проверять.
Далее происходит чтение значений переменных a, b, c, d, x с помощью функции readln(). Значения переменных a, b, c, d, x сохраняются в соответствующих переменных.
Затем выполняется проверка на принадлежность точки к отрезку или вне их. Если точка принадлежит отрезку ab, то значение переменной ab устанавливается в 1, иначе в 0. Аналогично выполняется проверка для отрезка cd и устанавливаются значения переменных ab и cd.
После этого выводится результат проверки с помощью функции write() и res[ab + cd].
Наконец, выполняется чтение следующего ввода с помощью функции readln().