Помогите решить задачу(pascal). Заданы числа a, b, c, d (a < b, c <d) и х.

Помогите решить задачу(pascal). Заданы числа a, b, c, d (a < b, c <d) и х.

Программа на Pascal для решения данной задачи может выглядеть следующим образом:

program CheckInterval;

var
  a, b, c, d, x: integer;

begin
  writeln('Введите значения a, b, c, d и x:');
  readln(a, b, c, d, x);

  if (x > a) and (x <= b) then
    writeln('x принадлежит интервалу (a, b]');
  if (x >= c) and (x <= d) then
    writeln('x принадлежит интервалу [c, d]');
  if (x > a) and (x <= b) and (x >= c) and (x <= d) then
    writeln('x принадлежит общей части интервалов (a, b] и [c, d]');
end.

Программа сначала запрашивает у пользователя значения a, b, c, d и x. Затем она проверяет, принадлежит ли x интервалу (a, b], интервалу [c, d] или их общей части, и выводит соответствующее сообщение.