Program Laba; uses crt;

var x,y,x1,x2,y1,y2:real;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
Write(' Введите координаты левой верней вершины прямоугольника:  '); Readln(X1,Y1);
Write(' Введите координаты правой нижней вершины прямоугольника: '); Readln(X2,Y2);
Write(' Введите координаты произвольной точки: '); Readln(X,Y);
Write('--------------------------------------------------------------------------------');

Write(' Ответ: ');
if ((X1 <= X) and (X <= X2) and (Y1 <= Y) and (Y <= Y2)) then Writeln('точка принадлежит прямоугольнику')
                                                         else Writeln('точка не принадлежит прямоугольнику');

Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.