Запишите алгоритм определения принадлежности. точки Х отрезку [А; В] с использованием комбинациииз двух ветвлений.

program AAA;

var A, B ,X :real;

begin

readln(A,B,X);

if X > A then

   if X< B then

       writeln('Прин')

    else 

       writeln('Не прин')

else

    writeln('Не прин')

end.