У тебя нет значения "then"
а где его нужно написать- зависит от условия задачи
Просто 1, т.к А ∨ неА = 1 (тут за А можно взять всё х·у), а 1 ∨ неважночто = 1
можно конечно расписать все скобки по другим правилам, но ответ тот же будет
Неверно:
<span>1, видеоадаптер цветного монитора может работать только в графическом режиме </span>
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, ']');
<span>end.
Вот так, интервалы - они и в Африке интервалы)</span>