use proconio::input;

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

    assert!(n <= 100);
    let mut ans = 0;
    for i in 0..n{
        for j in 0..n{
            ans += (i as i32-j as i32).abs()*(a[i]-a[j]).abs();
        }
    }

    println!("{}", ans);
}