program patuljci;
var n,c,m,i,k:integer; y,x:array[1..10000] of integer; z:array[1..300000]of integer; s:string;
procedure kapice(a,b:integer);
var w:array[1..10000] of integer; i:integer;
begin
for i:=a to b do
w[z[i]]:=w[z[i]]+1;
for i:=1 to 10000 do
if w[i]>(b-a)/2 then k:=i else k:=0;
end;
begin
readln(n,c);
readln(s); s:=s+' ';
repeat
i:=i+1;
val(copy(s,1,pos(' ',s)-1),z[i],k);
delete(s,1,pos(' ',s));
until s='';
readln(m);
for i:=1 to m do
readln(x[i],y[i]);
for i:=1 to m do
begin
kapice(x[i],y[i]);
if k<>0 then writeln('da ',k) else writeln('ne');
end;
readln
end.