codevs1054

题目地址;http://codevs.cn/problem/1054/

分析：

模拟

代码：

var a:array[1..50]of longint;

    m,n,o,i:longint;

 begin

  readln(n);

   for i:=1 to n do readln(a[i]);

    for i:=1 to n-1 do

     begin

      m:=abs(a[i+1]-a[i]);

      if a[i+1]>a[i] then o:=6*m+5+o else

      o:=4*m+5+o;

     end;

    write(o+a[1]*6+5);

 end.