核心：
readln(x,y)；
fillchar(f,sizeof(f),false)；
t:=x；
while t<>a[t] do
begin
f[t]:=true；
t:=a[t]；
end；
f[t]:=true；
t:=y；
while t<>a[t] do
begin
if f[t]=true then begin writeln(t)；halt；end；
t:=a[t]；
end；
if f[t]=true then begin writeln(t)；halt；end；
end.
