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

Var x,y,a,b:real;BeginWrite('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.