Проверить принадлежность числа 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. Вот так, интервалы - они и в Африке интервалы)
