var f,g : text;
    a : array[1..250000,1..250000] of longint;
    i,j,p,q,x,m,n : longint;
    ok: boolean;
begin
assign(f,'stramosi.in'); reset(f);
assign(g,'stramosi.out'); rewrite(g);
read(f,n,m);
for i:=1 to n do begin
read(f,x); a[i,x]:=1;
 for j:=1 to n do if a[x,j]<>0 then a[i,j]:=a[x,j]+1;
 end;
for i:=1 to m do begin
readln(f,q,p); ok:=false;
 for j:=1 to n do if a[q,j]=p then begin
                  writeln(g,j);ok:=true; break;
                  end;
if not ok then writeln(g,'0');
                 end;
close(g);
end.