пусть [a,b] - область и a<=b
var
a,b,x:real;
begin
readln(a,b,x);
if (a<=x) and (x<=b) then
writeln('принадлежит')
else
writeln('не принадлежит');
end.
