program stramosi;
var a:array[1..250000] of longword;
    fin,fout:text;
    n,m,i,j,p,q,s,qs:longint;
    k:boolean;

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]);
readln(fin);

for i:=1 to m do
        begin
        readln(fin,q,p);

        j:=p;
        qs:=q;
        s:=0;
        k:=true;
        while k do
                begin
                if j=0 then
                       begin
                       s:=qs;
                       k:=false;
                       end
                       else if a[qs]=0 then
                                       begin
                                       s:=0;
                                       k:=false;
                                       end
                                       else
                                       begin
                                       qs:=a[qs];
                                       j:=j-1;
                                       end;

                end;

        writeln(fout,s);
        end;

close(fin);
close(fout);
end.