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, в этом была ошибка. (еще ни разу не видела, чтобы переменные в паскале вводили через запятую, так что не рискуй.)
а это советы на будущее:
нормальные скобки в условиях.
