Привет! Помогите решить задачи и написать программы в паскале: 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) then
writeln(Принадлежит)
else
writeln(Не принадлежит);
end.