program p1;
var f,f1:text;
    n,m,i,j:longint;
    a,p,q:array[1..5250]of longint;
begin
assign(f1,'stramosi.out');rewrite(f1);
assign(f,'stramosi.in');reset(f);
readln(f,n,m);
for i:=1 to n do
    read(f,a[i]);
for i:=1 to m do
    readln(f,q[i],p[i]);
close(f);
for i:=1 to m do
    begin
    j:=0;
    repeat
    j:=j+1;
    q[i]:=a[q[i]];
    until(j=p[i])or(q[i]=0);
    writeln(f1,q[i]);
    end;
close(f1);
end.