program stramosesc;
var f,g:text;
    n,m,i,y,p,q:longint;
    a:array[0..250000] of integer;
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,a[i]);
for i:=1 to m do
              begin
              readln(f,q,p);
              for y:=1 to p do
                            q:=a[q];
              writeln(g,q);
              end;
close(f); close(g);
end.