function query(x:longint):longint;
 var z,w:longint;
 begin
 clean(x);
 if total[x]=ll[x] then exit(total[x]);
 w:=0;
 w:=max(w,ll[x]);
 w:=max(w,rr[ls[x]]+ll[rs[x]]);
 w:=max(w,rr[x]);
 if ls[x]<>0 then
 w:=max(w,query(ls[x]));
 if rs[x]<>0 then
 w:=max(w,query(rs[x]));
 exit(w);
 end;
total，ll，rr数组和poj3667用途一样