Pascal с условием и анализом определите принадлежит ли точка М отрезку, ограниченному точками А, В.

var

a,x,b:real;

begin

  readln(x,a,b);

if a>b then

  if (x<=a)and(x>=b)then

     writeln('Принадлежит')

  else

      writeln('Не принадлежит')

else

   if (x<=b)and(x>=a) then

        writeln('Принадлежит')

   else

        writeln('Не принадлежит');

end.

Объяснение: