营业额统计(tyvj1185)

type node=record
lc,rc,key,fa:longint;
end;
var p:array[0..50000]of node;
root,a,n,i,j,ans,tot,x,y:longint;
procedure zag(var x:longint);
var y,ff:longint;
begin
y:=p[x].lc