var f,g:text;
    a:array[1..250000] of longint;
    n,m,x,i,j,p,q:longint;
begin
     assign(f,'stramosi.in'); reset(f);
     assign(g,'stramosi.out'); rewrite(g);
     readln(f,n,m);
     for i:=1 to n-1 do read(f,a[i]);
     readln(f,a[n]);
     for i:=1 to m do
     begin
          readln(f,q,p);
          if a[q]<>0 then
          begin
               for j:=1 to p do
               begin
                    x:=a[q];
                    q:=x;
               end;
               writeln(g,x);
          end
                    else
          writeln(g,'0');
     end;
     close(g);
end.