var a : array [1..50] of int

var
  a : array [1..50] of integer;
  n, i, sum : integer;
procedure work(p, r : integer);
var
  i, j, temp : integer;
begin
  if p < r then
  begin
    i := p - 1;
    for j := p to r - 1 do
      if a[j] >= a[r] then
      begin
        inc(i);
        temp := a[i];
        a[i] := a[j];
        a[j] := temp;
      end;
    temp := a[i + 1];
    a[i + 1] := a[r];
    a[r] := temp;
    work(p, i);
    work(i + 2, r);
  end;
end;
begin
  read(n);
  for i := 1 to n do read(a[i]);
  work(1, n);
  for i := 1 to n - 1 do sum := sum + abs(a[i + 1] - a[i]);
  writeln(sum);
end.