Решить задачу на языке Паскаль. Определить, лежит ли точка с известными координатами на вертикальном отрезке прямой с заданными координатами концов. Результаты вывести на экран.

Program pryam;

Var y1, y2, y3, x1, x2 : real;

Begin

writeln ('Введите координату (у) верхней точки прямой') ;

readln (y1) ;

writeln ('Введите координату (у) нижней точки прямой') ;

readln (y2) ;

writeln ('Введите координату (х) точек-концов прямой') ;

readln (x1) ;

writeln ('Введите координату (у) точки, принадлежность к прямой которой нужно определить') ;

readln (y3) ;

writeln ('Введите координату (х) точки, принадлежность к прямой которой нужно определить') ;

readln (x2) ;

if (y3=y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ') ;

readln;

End.