Решить и написать программы в паскале: 1)определить принадлежит ли некая точка с координатой х отрезку [a,b] числовой прямой. значения а х b вводятся с клавиатуры.

Program prog;
uses crt;

Var a,b,x: real;

begin
clrscr;

write('x = ');
readln(x);
write('a = ');
readln(a);
write('b = ');
readln(b);
writeln;
if (a<=x)and(b>=x) then
writeln('Принадлежит')
else
writeln('Не принадлежит');
end.