Program info;
  uses crt;
type
  form=array[1..2] of integer;
var
  a,ren,ren2:array[1..10] of form;
  n,i:integer;
begin
 clrscr;
 GoToXY(35,1); TextColor(7); Writeln('Beta test');
 TextColor(4);
 Writeln('Введите органичение для прямоугольной области');
 TextColor(15);
 Writeln('Точка А:');
  Write('x='); Readln(ren[1][1]);
  Write('y='); Readln(ren[1][2]);
 Writeln('Точка B:');
  Write('x='); Readln(ren2[1][1]);
  Write('y='); Readln(ren2[1][2]);
 Writeln;
 Write('Задайте желаемое кол-во точкек на координатной плоскости: ');
 Readln(n);
  for i:=1 to n do
   begin
     writeln ('введите точку  ',chr(i+66));
     Write('x='); Readln (a[i][1]);
     Write('y='); Readln (a[i][2]);
    end;
 For i:=1 to 78 do
 Write('-');
 Writeln;
 Writeln('Результат:');
 Textcolor(10);
 {проверка условия при разных вариантах расположения точек А и В}
 for i:=1 to n do
  begin
   if ren[1][2]<ren2[1][2] then {если А ниже В}
   begin

    if ren[1][1]<ren2[1][1] then {если А левее В}
     begin
          If (a[i][1]>=ren[1][1]) and (a[i][1]<=ren2[1][1]) then
           begin
            If (a[i][2]>=ren[1][2]) and (a[i][2]<=ren2[1][2]) then
            Writeln ('(',a[i][1],';',a[i][2],')');
           end;
     end
   else  {если А правее В}
     begin
          If (a[i][1]<=ren[1][1]) and (a[i][1]>=ren2[1][1]) then
           begin
            If (a[i][2]>=ren[1][2]) and (a[i][2]<=ren2[1][2]) then
            Writeln ('(',a[i][1],';',a[i][2],')');
           end;
     end;
  end
 ELSE {если А выше В}
    begin
    if ren[1][1]<ren2[1][1] then  {если А левее В}
     begin
          If (a[i][1]>=ren[1][1]) and (a[i][1]<=ren2[1][1]) then
           begin
            If (a[i][2]<=ren[1][2]) and (a[i][2]>=ren2[1][2]) then
            Writeln ('(',a[i][1],';',a[i][2],')');
           end;
     end
    else {если А правее В}
     begin
          If (a[i][1]<=ren[1][1]) and (a[i][1]>=ren2[1][1]) then
           begin
            If (a[i][2]<=ren[1][2]) and (a[i][2]>=ren2[1][2]) then
            Writeln ('(',a[i][1],';',a[i][2],')');
           end;
     end;
    end;
 END;
 Readln;
end.