program patuljci;
var n,c,m,a,b:integer;
    ma,r:array[1..10000] of integer;
    x,k,max,fr,gr:integer;
    y,z,fgh,h,br:integer;
    trz:array[1..10000] of string;
    sl,slv:string;

begin
     readln(n,c);
     br:=1;
     slv:='da ';
     max:=0;
     fr:=0;
     fgh:=0;
     for x:=1 to n do
         read(ma[x]);
     readln(m);
     for x:=1 to m do
         begin
         gr:=0;
         readln(a,b);
         for y:=a to b do
             begin
             for z:=1 to c do
                 if ma[y]=z then r[z]:=r[z]+1;
             end;
         max:=r[1];
         fgh:=1;
         for z:=2 to c do
             if r[z]>max then
             begin
             max:=r[z];
             fgh:=z;
             end;
         fr:=(b-a)+1;
         if fr mod 2 > 0 then
         begin
         fr:=(fr div 2) + 1;
         if max>=fr then
         begin
         gr:=1;
         str(fgh,sl);
         trz[br]:=slv+sl;
         end;
         end;
         fr:=(b-a)+1;
         if fr mod 2 = 0 then
         begin
         fr:=fr div 2;
         if max>fr then
         begin
         gr:=1;
         str(fgh,sl);
         trz[br]:=slv+sl;
         end;
         end;
         if gr=0 then trz[br]:='ne';
         inc(br);
         for z:=1 to c do
             r[z]:=0;
         end;
         for x:=1 to m do
             writeln(trz[x]);
end.