Сумма расстояний между всеми парами вершин графа

for i:=1 to n-1 do
for j:=i+1 to n do begin
 { Обработка пары A[i],A[j], в твоем случае s:=s+Расстояние(A[i],A[j]); }
end;

program trees;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var distA,distB:integer;
    d:array[0..10000,0..10000]of integer;
    h,potomok,sosed,predok:array[1..100000]of integer;
 
procedure pass(v:integer; he:integer);//обход всего дерева, для того чтобы каждой вершине задать её глубину(v-текущая вершина, he-текущая глубина)
begin
   if v=-1 then exit;
   h[v]:=he;
   if potomok[v]<>-1 then begin
      pass(potomok[v],he+1);
   end;
   if sosed[v]<>-1 then pass(sosed[v],he);
end;
 
procedure lca(u,v:integer);//ищет ближайшего общего предка вершин u и v и считает расстояние(distA и distB) от каждой из этих вершин до их общего предка
begin
   distA:=0;
   distB:=0;
   while h[u]<>h[v] do begin
      if h[u]>h[v] then begin
         distA:=distA+d[predok[u],u];
         u:=predok[u];
      end
      else begin
         distB:=distB+d[predok[v],v];
         v:=predok[v];
      end;
   end;
   while u<>v do begin
     distA:=distA+d[predok[u],u];
     u:=predok[u];
     distB:=distB+d[predok[v],v];
     v:=predok[v];
   end;
end;
 
 
var sum,i,j,u,v,w,n:integer;
 
begin
  reset(input,'tree.in');
  rewrite(output,'tree.out');
  read(n);
  for i:=0 to n-1 do begin
     predok[i]:=-1;
     potomok[i]:=-1;
     sosed[i]:=-1;
  end;
  for i:=1 to n-1 do begin//построение дерева
     read(u,v,w);
     d[u,v]:=w;
     predok[v]:=u;
     if potomok[u]<>-1 then begin
        sosed[v]:=potomok[u];
        potomok[u]:=v;
     end
     else potomok[u]:=v;
  end;
  pass(0,0);
  sum:=0;
  for i:=0 to n-2 do
     for j:=i+1 to n-1 do begin
        lca(i,j);
        sum:=sum+distA+distB;
     end;
  write(sum);
end.