Проверить принадлежность числа x интервалам [а,b] или [c,d]. должна получиться разветвленная схема, я догнать не могу как составить.

Var x, a, b, c, d: integer;
begin
     readln(x, a, b, c, d);
     if ((x > a) and (x < b)) then
 writeln('[', a, '; ', b, ']');
     if ((x > c) and (x < d)) then
 writeln('[', c, '; ', d, ']');
end.

Вот так, интервалы - они и в Африке интервалы)