program stramosi_010;
var a:array[0..250001,0..18] of longint;
	n,m,i,j,l,u,v,w:longint;
	fin,fout:text;
	
BEGIN
	assign(fin,'stramosi.in'); reset(fin);
	assign(fout,'stramosi.out'); rewrite(fout);
	readln(fin,n,m);
	for i:=1 to n do read(fin,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];
	for i:=1 to m do begin
		readln(fin,u,v);
		for w:=0 to 17 do begin
			if (v and (1 shl w))<>0 then u:=a[u,w];
		end;
		writeln(fout,u);
	end;
	close(fin); close(fout);
END.