1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
program lus;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };


var
  il_testow:byte;
  il_zakladow:longint;
  wyniki:array[1..10] of boolean;
  w1,w2,h1,h2:longint;
  w_min,w_max,h_min,h_max:longint;
  wm_min,wm_max,hm_min,hm_max:longint;
  licznik_test:byte;
  licznik_zaklad:longint;
  wynik:boolean;

begin
readln(il_testow);

for licznik_test:=1 to il_testow do
   begin
   readln(il_zakladow);
   readln(w1,w2,h1,h2);

   w_min:=w1;
   w_max:=w2;
   h_min:=h1;
   h_max:=h2;
   wm_min:=w1;
   wm_max:=w2;
   hm_min:=h1;
   hm_max:=h2;

   if il_zakladow>1 then
      begin
      for licznik_zaklad:=2 to il_zakladow do
         begin
         readln(w1,w2,h1,h2);
         if w1<w_min then
            w_min:=w1;
         if w2>w_max then
            w_max:=w2;
         if h1<h_min then
            h_min:=h1;
         if h2>h_max then
            h_max:=h2;

         if w1<=wm_min then
            if w2>=wm_max then
               if h1<=hm_min then
                  if h2>=hm_max then
                     begin
                     wm_min:=w1;
                     wm_max:=w2;
                     hm_min:=h1;
                     hm_max:=h2;
                     end;
         end;
      end;

   wynik:=false;
   if wm_min=w_min then
      if wm_max=w_max then
         if hm_min=h_min then
            if hm_max=h_max then
               wynik:=true;
   wyniki[licznik_test]:=wynik;
   end;
for licznik_test:=1 to il_testow do
   if wyniki[licznik_test] then
      writeln('TAK')
   else
      writeln('NIE');
end.