Запишите алгоритм определения принадлежности. точки Х отрезку [А; В] с использованием комбинациииз двух ветвлений.
program AAA;
var A, B ,X :real;
begin
readln(A,B,X);
if X > A then
if X< B then
writeln('Прин')
else
writeln('Не прин')
end.