program ime;
var uspon:array[1..1001] of Integer;
    br,i,razlika,max:integer;
begin
     readln(br);
     for i:=1 to br do begin
                           read(uspon[i]);
                       end;
     uspon[br+1]:=0;
     razlika:=0;
     max:=0;
     for i:=1 to br-1 do begin
      if uspon[i]<uspon[i+1] then begin
                                       razlika:=razlika+(uspon[i+1]-uspon[i]);
                                       if uspon[i+2]<=uspon[i] then begin
                                                                         if razlika>max then max:=razlika;
                                                                         razlika:=0;
                                                                    end;
                                   end;
                         end;
     write(max);
end.