{* Задача 259 *}

Unit ZADACH259;
Interface
Implementation
Begin
 writeln('Даны действительные числа а1,…а17. Найти сумму значений |xi-xj| (1≤ i ≤ j ≤ 17).');
End.

Program zadach259;

Uses zadach259.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  x   : Array [1..17] Of integer;
  i   : integer;
  j   : integer;
  sum : integer;
Begin
  Clrscr; {* Очистка экрана *}
  writeln('vvedite celye chisla');
  For i := 1 To 17 Do {* Цикл для i => [1 .. 17] *}
  Begin
    read (x[i]);
  End;
  writeln; {* Пустая строка *}
  For i := 1 To 16 Do {* Цикл для i => [1 .. 16] *}
  Begin
    For j := i + 1 To 17 Do
    Begin
      sum := sum + abs(x[i] - x[j]);
    End;
    
  End;
  writeln('suma=', sum);
  readln; {* Ждем подтверждения пользователя *}
End.