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

Program prog;uses crt;Var a,b,x: real;beginclrscr;write('x = ');readln(x);write('a = ');readln(a);write('b = ');readln(b);writeln;if (a<=x)and(b>=x) thenwriteln('Принадлежит')elsewriteln('Не принадлежит');end.