var f,g:text;
    n,m:longint;
    str:array[1..250000] of longint;





Procedure Megold(a,b:longint);
Begin
     while (b>0) and (a<>0) do begin
            a:=str[a];
            dec(b);
     end;
     writeln(g,a);
end;




procedure olvas;
var i,a,b:longint;
begin
     assign(f,'stramosi.in');
     reset(f);
     readln(f,n,m);
     for i:=1 to n do
         read(f,str[i]);
     readln(f);
     assign(g,'stramosi.out');
     rewrite(g);
     for i:=1 to m do begin
         readln(f,a,b);
         Megold(a,b);
     end;
     close(f);
     close(g);
end;

begin
     Olvas;
end.