{
    Problema stramosi... alocare dinamica
}
Program stramosi;

Type e_nume = 0..250000;
     vector = array[1..250000] of ^e_nume;

Var n, m, i, p, q : Longint;
    t : ^vector;

Begin
    Assign( input, 'stramosi.in' );
    Reset( input );
        Readln( n, m );
        new( t );
        For i := 1 to n do
            Begin
                new( t^[i] );
                Read( t^[i]^ );
            End;
        Readln;
    Assign( output, 'stramosi.out' );
    Rewrite( output);
        While m > 0 do
            Begin
                m := m-1;
                Readln( q, p );
                While ( p > 0 ) and ( t^[q]^ <> 0 ) do
                    Begin
                        q := t^[q]^;
                        p := p-1;
                    End;
                if p > 0 then Writeln( 0 )
                    else writeln( q );
            End;

    Close( input );
    Close( output );

    For i := 1 to n do dispose( t^[i] );
    dispose( t );
End.