Сделать в паскале! запросить с клавиатуры координаты точки (x, y) и горизонтального отрезка прямой (xn, xk, yn) и определить, лежит точка на отрезке прямой или нет. сообщение об этом вывести на экран. подсказка. если координата y точки не равна координате y прямой, то не лежит, если координата х точки не находится в пределах между хn начала и хk конца прямой, то точка не лежит на прямой.
a,b,z,x,y:real;
begin
write('Введите координаты точки (x,y): ');
readln(x,y);
write('Введите координаты отрезка (Xn, Xk, Yn): ');
readln(a,b,z);
if (y=z) and (x>=a) and (x<=b) then
writeln('Да, принадлежит')
else writeln('Нет, не принадлежит')
end.