记录编号	32556	评测结果	AAAAAAAAAA
题目名称	删数	最终得分	100
用户昵称	reamb	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2011-11-07 11:54:56	内存使用	0.23 MiB

program remove;
var
  f:array[0..10000]of int64;
  n,i,j:longint;
  a:array[0..10000]of longint;
begin
  assign(input,'remove.in');
  reset (input);
  assign (output,'remove.out');
  rewrite (output);
    readln (n);
    for i:=1 to n do
      read (a[i]);
    for i:=1 to n do
      for j:=1 to i do
      begin
        if i=j then
        begin
          if f[j-1]+a[i]>f[i] then
            f[i]:=f[j-1]+a[i]
        end
        else
        begin
          if f[j-1]+abs(a[i]-a[j])*(i-j+1)>f[i] then
            f[i]:=f[j-1]+abs(a[i]-a[j])*(i-j+1)
        end
      end;
    writeln (f[n]);
  close (input);
  close (output)
end.