program patuljci;

type
   rec = record
      a, b : longint;
   end;

var
   n, i, j, max, b : longint;
   c, m : integer;
   boje : array[1 .. 300000] of integer;
   podskup : array[1 .. 10000] of rec;
   koliko : array[1 .. 10000] of longint;

begin
   readln (n, c);
   for i := 1 to n do
      read (boje[i]);
   readln;
   readln (m);
   for i := 1 to m do
      readln (podskup[i].a, podskup[i].b);
   for i := 1 to m do begin
      for j := 1 to 10000 do
         koliko[j] := 0;
      for j := podskup[i].a to podskup[i].b do
         Inc (koliko[boje[j]]);
      max := 0;
      for j := podskup[i].a to podskup[i].b do
         if koliko[boje[j]]>max then begin
            max := koliko[boje[j]];
            b := boje[j];
         end;
      if max>(podskup[i].b-podskup[i].a+1)/2 then
         writeln ('da ',b)
      else
         writeln ('ne');
   end;
end.