program stramosi;
var t:array[1..2500] of integer;
    n,m,p,q,i,k,j:integer;
    f,g:text;
begin
     assign(f,'stramosi.in');reset(f);
     assign(g,'stramosi.out');rewrite(g);
     read(f,n);readln(f,m);
     for i:=1 to n do
         read(f,t[i]);
     for i:=1 to m do
         begin
              read(f,q);readln(f,p);
              k:=q;
              for j:=1 to p do
                       if t[k]=0 then
                          begin
                               k:=0;
                               j:=p;
                          end
                          else
                          k:=t[k];

              writeln(g,k);
         end;
     close(f);close(g);
end.