program str;
var A,c:array[1..250000]of longint;
b:array[1..300000,1..2] of longint;
m,n,i,j,k,l:longint;f,g:text;
begin
assign(f,'stramosi.in');
assign(g,'stramosi.out');
reset(F);
rewrite(G);
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,b[i,1],b[i,2]);
         k:=b[i,1];
         j:=0;
         repeat
         j:=j+1;
         k:=a[k];
         until (j=b[i,2])or(k=0);
         write(K);
end;
close(F);
close(G);
end.