var n:longint; c,i,j,m,z:integer;
    p,a,b,x:array[1..300000] of integer;
begin
read(n); readln(c);
for i:=1 to n-1 do read(p[i]);
readln(p[n]);
readln(m);
for i:=1 to m do begin
readln(a[i],b[i]);
for j:=a[i] to b[i] do
for z:=1 to c do
if p[j]=z then begin x[z]:=x[z]+1; break; end;
end;
for i:=1 to m do
for z:=1 to c do if x[z]>(b[i]-(a[i]-1)) then begin writeln('da ',z); break; end
                        else begin writeln('ne'); break; end;
readln;
end.