uses crt;
var n,c,y,b,i,m,i2,i1,a,prov:integer;
    p,bo,t:array[1..10000]of integer;
    pic:array[1..10000]of string;
begin
clrscr;
read(n,c);
for i:=1 to n do read(p[i]);
read(m);
for i:=1 to m do
        begin
        read(a,b);
        for i1:=1 to c do bo[i1]:=0;
        for i1:=a to b do for i2:=1 to c do if p[i1]=i2 then inc(bo[i2]);
        for i1:=1 to c do if bo[i1]>((b-a+1)/2) then begin t[i]:=i1;  prov:=1; end;
        if prov<>1 then t[i]:=0;
        prov:=0;
end;
for i:=1 to m do begin
if t[i]>0 then writeln('da',t[i]) else writeln('ne');
end;
readkey
end.