#include <iostream>
#include <vector>
#include <stdio.h>
#define NMax 100005
#define LGMax 21
using namespace std;
vector<int> Graf[NMax];
int Euler[4*NMax],H[4*NMax],First[NMax],N,M,k,RMQ[LGMax][4*NMax],lg[4*NMax],x;

void Read()
{
    freopen("lca.in","r",stdin);
    scanf("%d%d",&N,&M);
    for(int i=2;i<=N;i++)
    {
        scanf("%d",&x);
        Graf[x].push_back(i);
    }
}

void DFS(int nod,int level)
{
    Euler[++k]=nod;
    H[k]=level;
    First[nod]=k;
    for(vector<int>::iterator it=Graf[nod].begin();it!=Graf[nod].end();it++)
    {
        DFS(*it,level+1);
        Euler[++k]=nod;
        H[k]=level;
    }
}

void Rmq()
{
    for(int i=2;i<=k;i++)
        lg[i]=lg[i/2]+1;
    for(int i=1;i<=k;i++)
        RMQ[0][i]=i;

    for(int i=1;(1<<i)<=k;i++)
        for(int j=1;j<=k-(1<<i);j++)
        {
            int l=1<<(i-1);
            RMQ[i][j]=RMQ[i-1][j];
            if(H[RMQ[i][j]]>H[RMQ[i-1][j+l]])
                RMQ[i][j]=RMQ[i-1][j+l];
        }
}

int LCA(int x,int y)
{
    x=First[x];
    y=First[y];
    if(x>y)
        swap(x,y);
    int l=lg[y-x+1];
    int sol=RMQ[l][x];
    if(H[sol]>H[RMQ[l][y-(1<<l)+1]])
        sol=RMQ[l][y-(1<<l)+1];
    return Euler[sol];
}

int main()
{
    Read();
    DFS(1,0);
    Rmq();
    freopen("lca.out","w",stdout);
    while(M--)
    {
        int x,y;
        scanf("%d%d",&x,&y);
        printf("%d\n",LCA(x,y));
    }
}