use proconio::input;

fn main() {
	input! {
		n: usize,
		a: [isize; n],
	}

    let mut ans = 0;

    for i in 0..n {
        for j in 0..n {
            ans += (a[i] - a[j]).abs() * (i as isize - j as isize).abs();
        }
    }

    println!("{ans}");
}