{* Задача 86 *}

Unit ZADACH86;
Interface
Implementation
Begin
 writeln('Даны действительные числа x[1], x[2],..., x[17]. Найти сумму значений | x[i] - x[j] | при условии, что 1 <= i < j <= 17.');
End.

Program zadach86;

Uses zadach86.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  a : Array[1..17] Of integer;
  i : byte;
  j : byte;
  s : integer;
Begin
  ClrScr; {* Очищаем экран *}
  For i := 1 To 17 Do {* Цикл для i => [1 .. 17] *}
    a[i] := random(50);
  For i := 1 To 17 Do {* Увеличиваем i от 1 до 17 с шагом 1 *}
    Write(a[i] : 4);
  Writeln; {* Вывод пустой строки *}
  s := 0;
  For i := 1 To 17 Do {* Цикл для i => [1 .. 17] *}
    For j := 1 To i - 1 Do {* Увеличиваем j от 1 до i с шагом 1 *}
      s := s + abs(a[i] - a[j]);
  Writeln(s)
End.