{* Задача 488 *}

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

Program zadach488;

Uses zadach488.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 с шагом 1 *}
    a[i] := random(50);
  For i := 1 To 17 Do {* Цикл для i => [1 .. 17] *}
    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 *}
      s := s + abs(a[i] - a[j]);
  Writeln(s)
End.