var a,b,c:array[1..200000] of longint;
t,s:array[1..1000000] of longint;
d:array[1..2000,1..2000] of boolean;
i,j,e,m,n,p,q,r:longint;

begin read(n);
for i:=1 to (n-1) do read(a[i] , b[i]);
for i:=1 to n do read(c[i]);
for i:=1 to (n-1) do d[a[i],b[i]]:=true;

q:=0; for i:=1 to n do
begin for j:=1 to n do
begin if d[i,j]= true then for m:=1 to n do
begin if d[j,m]= true then
begin inc(q); s[q]:=c[i]*c[m];writeln(s[q]);
end;
end;
end;
end;
r:=0;p:=0;e:=0;
for i:=1 to q do if s[i]>=p then P:=s[i];
for i:=1 to q do t[i]:=s[i] mod 10007 ;
for i:=1 to q do r:=r+s[i];
e:=2*r mod 10007;
write (p,' ',e);
readln;
end.
数据有问题，帮改改