program stramosi_010;
var a:array[0..250001,0..18] of longint;
	n,m,i,j,u,v: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 begin read(f,j); a[i,0]:=j; end;
	for j:=1 to 17 do
		for i:=1 to n do a[i,j]:=a[a[i,j-1],j-1];
	for i:=1 to m do begin
		readln(f,u,v);
		for j:=0 to 17 do if (v and (1 shl j))<>0 then u:=a[u,j];
		writeln(g,u);
	end;
	close(f); close(g);
END.