#include <algorithm>
#include <cassert>
#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <cmath>
#include <iostream>
#include <numeric>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <functional>
#include <iomanip>
using namespace std;
using ll = long long;

class range {private: struct I{int x;int operator*(){return x;}bool operator!=(I& lhs){return x<lhs.x;}void operator++(){++x;}};I i,n;
public:range(int n_):i({0}),n({n_}){}range(int i_,int n_):i({i_}),n({n_}){}I& begin(){return i;}I& end(){return n;}};


template<class T, class U> ostream& operator<<(ostream& os, const pair<T, U>& p){ return os << "{" << p.first << ", " << p.second << "}"; }
template<typename T> ostream& operator<<(ostream& os, const vector<T>& obj) { os << "{"; for (const auto& e : obj) os << e << ", "; return os << "}"; }
template<typename T> ostream& operator<<(ostream& os, const set<T>& obj) { os << "set{"; for (const auto& e : obj) os << e << ", "; return os << "}"; }
template<typename T, typename U> ostream& operator<<(ostream& os, const map<T, U>& obj) { os << "map{"; for (const auto& e : obj) os << e << ", "; return os << "}"; }

#ifdef ONLINE_JUDGE
#define dump(expr) ;
#else
#define dump(expr) { cerr << "\033[33m#L" << __LINE__ << ": " << expr << "\033[39m" << endl; }
#endif

ll solve() {
  ll n; cin >> n;
  vector<ll> vs(n);
  for (int i : range(n)) cin >> vs[i];
  sort(vs.begin(), vs.end());

  if (n <= 2) return 0;

  ll best = 0;
  ll r = 0, tot = vs[0];
  for (;;) {
    tot += vs[r + 1];
    tot += vs[n - r - 1];
    r++;
    if (2 * r + 1 >= n) break;

    dump(tot);

    ll cand = tot - (2 * r + 1) * vs[r];
    dump(r << " " << cand);
    best = max(best, cand);
  }
  return best;
}

int main() {
  cout << fixed << setprecision(12);
  cout << solve() << endl;
}