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

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<=y1) and (y3>=y2) and (x2=x1) then writeln (' принадлежит ') else writeln (' не принадлежит '); readln; End.