program p1;
var a:array[1..250000] of 1..250000;
    n,m,i,j,p,q,nr:longint;
    f,g:text;
begin
assign(f,'stramosi.in');
reset(f);
readln(f,n,m);
for i:=1 to n do
read(f,a[i]);
readln(f);
assign(g,'stramosi.out');
rewrite(g);
repeat
readln(f,q,p);
nr:=0;
j:=q;
while (a[j]<>0)and(nr<p) do
begin
j:=a[j];
nr:=nr+1;
end;
if nr<p then j:=0;
writeln(g,j);
until eof(f);
close(f);
close(g);
end.