Впрограмме паскаль авс нужно написать программу для . дано число и концы двух промежутков, принадлежит ли точка одному из них? промежуток любой. заранее !

Var a,b:real;
      x:real;
begin
write('введите концы отрезка a,b  a<b');
read(a,b);
write('введите число х');
read(x);
if (x>=a) and (x<=b) then write(' принадлежит') else write(' не принадлежит');
end.