Паскаль не помню, но как решить задачу могу объяснить.
дано две противоположенные вершины прямоугольника
(x1,y1) и (x2,y2)
прямоугольник при этом будет ровно один
проверка на принадлежность точки этому прямоугольнику проста
пусть x,y -это координаты точки
вначале надо проверить кто больше x1 или x2, и y1 или y2
if (x1>x2) {
rx1 = x2; rx2 = x1;
} else {
rx1 = x1; rx2 = x2;
}
if (y1>y2) {
ry1 = y2; ry2 = y1;
} else {
ry1 = y1; ry2 = y2;
}
if (x>rx1) and (xry1) and (y точка с координатами X, Y лежит внутри прямоугольника.
}
if (x=rx1) or (x=rx2) or (y=ry1) or (y=ry2) {
точка с координатами X, Y лежит на одной из граней прямоугольника.
}
Теперь осталось написать
PROGRAM
BEGIN
readln(координаты)
проверки
writeln(ответ)
END.