use std::io::*;

fn read_int(s: &mut StdinLock) -> i64 {
    s.by_ref().bytes().map(|c| c.unwrap() as char)
        .take_while(|c| !c.is_whitespace())
        .skip_while(|c| c.is_whitespace())
        .fold(0, |a, x| (x as u8 - b'0') as i64 + a * 10)
}
fn read_line_split_int(s: &mut StdinLock, n: i64) -> Vec<i64> {
    (0..n).map(|_| read_int(s)).collect()
}
fn main(){
    let s = stdin();
    let mut s = s.lock();
    let n = read_int(&mut s);
    let a = read_line_split_int(&mut s, n);
    let mut ans: Vec<(i64, i64)> = Vec::new();
    let mut answer: i64 = 0;
    let mut left = 0;
    let mut right = n-1;
    for i in 0..(n as usize) {
        ans.push((a[i], i as i64));
    }
    ans.sort_by_key(|x| x.0);
    'outer: for i in (0..(n as usize)).rev() {
        if (ans[i].1 - left).abs() > (right - ans[i].1).abs() {
            answer += ans[i].0 * (ans[i].1 - left).abs();
            left += 1;
        } else if (ans[i].1 - left).abs() < (right - ans[i].1).abs() {
            answer += ans[i].0 * (right - ans[i].1).abs();
            right -= 1;
        } else {
            for j in (0..i).rev() {
                if (ans[j].1 - left).abs() > (right - ans[j].1).abs() {
                    answer += ans[i].0 * (right - ans[i].1).abs();
                    right -= 1;
                    continue 'outer;
                } else if (ans[j].1 - left).abs() < (right - ans[j].1).abs() {
                    answer += ans[i].0 * (ans[i].1 - left).abs();
                    left += 1;
                    continue 'outer;
                } 
            }
            answer += ans[i].0 * (ans[i].1 - left).abs();
            left += 1;
        }
        
    }
    println!("{}", answer);
}