var f,g:text;
v:array[1..250000]of longint;
n,x,y,stramos,i,j,m:longint;
begin
  assign(f,'stramosi.in');
  reset(f);
  assign(g,'stramosi.out');
  rewrite(g);
  readln(f,n,m);
  for i:=1 to n do
      read(f,v[i]);
  for i:=1 to m do
     begin
     readln(f,x,y);
     stramos:=v[x];
     for j:=1 to y-1 do
         begin
         stramos:=v[stramos];
          if stramos=0 then break;
         end;

     writeln(g,stramos);
     end;
close(g);
end.