NDK 1367 yep的聚会

问题描述：	yep喜欢和它所遇见的所有女性成为朋友，因此它有很多朋友。依照亲密程度，yep给它的朋  友划定了等级，等级数越小，亲密程度越大。例如，”某女“为1级，”非常亲密”为2级，等  等。某女只有一个，其它等级的朋友可以有多个。由于yep强大的个人实力，每个等级  i（i>1）的朋友会嫉妒一个等级为i-1的朋友。现在yep想邀请它的所有朋友开个聚会讨论人  生追求与理想。为了保持社会和谐，yep希望参加聚会的朋友间没有矛盾；为了将来的人  生，它还希望参加聚会的朋友的美丽度之和最大。为了满足它小小的追求，yep请你帮它计  算，参加聚会的朋友的美丽度之和最大为多少。
数据输入：	第1行为一个整数N，为yep的朋友数量。  第2行到第N+1行每行二个整数P，Q。第i行的数分别表示编号为i-1的朋友的美丽度和她所  嫉妒的朋友的编号（Q=-1表示此行描述的是某女）。
结果输出：	一个数ANS，为参加聚会的朋友的美丽度之和的最大值。
样例：	6  30 -1  15 1  2 1  17 2  23 2  7 3	77
核心思想：	Dp，上司选下属不选，上司不选下属爱选不选，也可以成为回溯哈。

type
 edge=record
 d,y,next:longint;
 end;
var
 a:array[0..200001]of edge;
 f,first:array[0..200001]of longint;
 n,i,tot,x,y,d:longint;
procedure ad_edge(x,y,d:longint);
begin
 inc(tot);
 a[tot].y:=y;
 a[tot].d:=d;
 a[tot].next:=first[x];
 first[x]:=tot;
end;
function dfs(x:longint):longint;
var
 t,k,sum1,sum2:longint;
begin
 iff[x]>0 then exit(f[x]);
 t:=first[x];
 sum1:=a[x].d;
 sum2:=0;
 while t>0 do
 begin
  k:=first[t];
  while k>0 do
   begin
    inc(sum1,dfs(k));
    k:=a[k].next;
   end;
  inc(sum2,dfs(t));
  t:=a[t].next;
  end;
 ifsum1>sum2 then f[x]:=sum1 else f[x]:=sum2;
 exit(f[x]);
end;
begin
 assign(input,'yepparty.in');reset(input);
 assign(output,'yepparty.out');rewrite(output);
 tot:=0;
 readln(n);
 fori:=1 to n do
 begin
  readln(d,y);
  ad_edge(y,i,d);
 end;
 writeln(dfs(1));
 close(input);close(output);
end.

题目来源：NDK 1367