var f,g:text;
    n,i,t,nr,j,p,q,aux:longint;
    x:array[1..100,1..100] of longint;
    ok:boolean;
begin
assign(f,'stramosi.in'); reset(f);
assign(g,'stramosi.out'); rewrite(g);
readln(f,n,t);
for i:=1 to n do begin
           read(f,nr);
           if nr<>0 then x[i,nr]:=1;
           end;
for i:=1 to t do begin
         readln(f,p,q);
         nr:=0;
         ok:=false;
         aux:=p;
         while (ok=false) and (nr<q) do begin
              ok:=true;
              for j:=1 to n do if x[aux,j]=1 then begin
                                       ok:=false;
                                       inc(nr);
                                       aux:=j;
                                       break;
                                       end;
                                       end;
             if nr=q then writeln(g,aux)
                     else writeln(g,'0');
             end;
close(f); close(g);
end.