Tyvj P1021 线段长度

【描述】
数轴上有N个点，任意两点连线得到n(n-1)条线段，试求线段的总长。
【输入格式】
第一行，一个整数N，表示点数。
接下来N行，每行一个整数X_i，表示点的坐标。
【输出格式】
一个整数，表示线段的总长。
【样例输入】
5
1
5
3
2
4
【样例输出】
40
【题解】
模拟枚举法；
求出每一条线段的距离，再求和。

var n,i,j:longint;
    total:qword;
    a:array[1..10000] of longint;
begin
  readln(n);
    for i:=1 to n do
      readln(a[i]);
   for i:=1 to n do
     for j:=1 to n do
       if i<>j then
          total:=abs(a[i]-a[j])+total;
    writeln(total);
end.