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);
	readln(f,n,m);
	for i:=1 to n do read(f,a[i,0]);
	for j:=1 to 17 do
		for i:=1 to n do a[i,j]:=a[a[i,j-1],j-1];
	assign(g,'stramosi.out'); rewrite(g);
	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.