Var x1,y1,x2,y2,x,y:real;
begin
write('x1, y1:');
readln(x1,y1);
write('x2, y2:');
readln(x2,y2);
write('x, y:');
readln(x,y);
if (x>x1)and(xy2)
then writeln('Точка принадлежит прямоугольнику')
else writeln('Точка не принадлежит прямоугольнику');
end.
Пример:
x1, y1:
1 9
x2, y2:
7 2
x, y:
6 7
Точка принадлежит прямоугольнику