var n,c,m,a,b,x,k,max,fr,gr,y,z,fgh,h,br:integer;
    sl,slv:string;
    ma,r:array[1..10000] of integer;
    t:array[1..10000] of 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);
         t[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);
         t[br]:=slv+sl;
         end;
         end;
         if gr=0 then t[br]:='ne';
         inc(br);
         for z:=1 to c do
             r[z]:=0;
         end;
         for x:=1 to m do
             writeln(t[x]);
             readln;
             readln;
end.