program str;
var A:array[1..250000]of longint;
m,n,i,j,k,l:longint;f,g:text;
procedure rezolva;inline;
begin
readln(f,n,m);
for i:=1 to n do read(f,a[i]); readln(F);
for i:=1 to m do
begin
         read(f,k,l);
         j:=0;
         repeat
         j:=j+1;
         k:=a[k];
         until (j=l)or(k=0);
         writeln(g,K);
end;
end;
begin
assign(f,'stramosi.in');
assign(g,'stramosi.out');
reset(F);
rewrite(G);rezolva;
close(F);
close(G);
end.