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