var t:array[1..200000]of longint;
n,m,i,p,q,a,c:longint;
begin
assign(input,'stramosi.in');reset(input);
read(n,m);
for i:=1 to n do read(t[i]);

assign(output,'stramosi.out');
rewrite(output);
for i:=1 to m do begin
    read(q,p);
    a:=q;
    c:=0;
    while (a<>0)and(c<p) do begin
          a:=t[a];
          inc(c);
          end;
    writeln(a);
end;
close(output);
end.