var f1,f2:text;
    i,n,x,m,p,q,j:longint;
    a:array[1..2500000] of longint;
begin
        assign(f1,'stramosi.in');
        reset(f1);
        assign(f2,'stramosi.out');
        rewrite(f2);
        read(f1,n,m);
        for i:=1 to n do
                read(f1,a[i]);
        for i:=1 to m do
        begin
                read(f1,q,p);
                x:=q;
                for j:=1 to p do
                begin
                        x:=a[x];
                        if x=0 then break;
                end;
                writeln(f2,x);
        end;
        close(f1);
        close(f2);
end.