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

close(g);
end.