program stramosi_010;
var a:array[0..18,0..250001] 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[0,i]);
	for j:=1 to 17 do
		for i:=1 to n do a[j,i]:=a[j-1,a[j-1,i]];
	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[j,u];
		writeln(g,u);
	end;
	close(f); close(g);
END.