Ответ:

program n_9;

var x,a,b:real;

begin

writeln('определение принадлежности точки отрезку');

 writeln('введите a');

 readln(a);

writeln('введите b');

readln(b);

writeln('введите x');

readln(x);

if ((x>=a) and (x<=b)) then writeln('точка принадлежит отрезку')

else writeln('точка не принадлежит отрезку');

end.

Объяснение:

нужна была тчк с запятой после действия в else, в этом была ошибка. (еще ни разу не видела, чтобы переменные в паскале вводили через запятую, так что не рискуй.)

а это советы на будущее:

нормальные скобки в условиях.