n = gets.to_i
a = gets.split.map(&:to_i).sort
dp = [10**18]*(n+1)
dp[0] = 0

n.times do |i|
  dp[i+2] = [dp[i+2],dp[i]+a[i+1]-a[i]].min if i+2<=n
  dp[i+3] = [dp[i+3],dp[i]+a[i+2]-a[i]].min if i+3<=n
end

puts dp[n]