Program stramosi_2;
 var i,j,n,m,q,p:longint;
     a:array [1..250000] of longint;
     b:array [1..250000,1..1000] of integer;
     b1,b2:array [1..1 shl 17] of char;
     fi,fo:text;
begin
 assign(fi,'stramosi.in');
 assign(fo,'stramosi.out');
 settextbuf(fi,b1);
 settextbuf(fi,b2);
 reset(fi);
  rewrite(fo);
 readln(fi,n,m);
  for i:=1 to n do
             read(fi,a[i]);
                readln(fi);
  b[1,1]:=a[1];
  for i:=2 to n do
   if a[i]<>a[i-1] then begin
                    b[i,1]:=a[i];
                     j:=2;
                    while b[i-1,j-1]<>0 do begin
                                     b[i,j]:=b[i-1,j-1];
                                     inc(j);
                                     end;
                       end
    else if a[i]=a[i-1] then b[i]:=b[i-1];
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if b[i,1]=b[j,1] then b[j]:=b[i];
  for i:=1 to m do begin
    readln(fi,q,p);
    if p<=1000 then
                writeln(fo,b[q,p])
                 else writeln(fo,'0');
    end;
 close(fo);
end.