Else информатика

Задача

Проверить принадлежит ли число x и y. Промежутку [a, b]

.

Var x, y, a, b:real;

Begin

Write ('a = ');

ReadLn (a);

Write ('b = ');

ReadLn (b);

Write ('x = ');

ReadLn (x);

Write ('y = ');

ReadLn (y);

if (a<=x) and (x<=b) and (a<=y) and (y<=b) then WriteLn (x,' и ', y,' ∈ [', a,',', b,']')

else WriteLn (x,' и/или ', y,' не ∈ [', a,',', b,']')

End.