Решить задачу на языке Паскаль

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.