const NN = 111111;
var
a, pre, suf, st : array[0 .. NN] of integer;
n, i, x, cnt, ans : integer;
function max(x, y : integer) : integer;
begin
max := x;
if (x < y) then max := y;
end;
begin
readln(n);
for i := 1 to n do read(a[i]);
cnt := 1;
st[cnt] := n;
for i := n-1 downto 1 do
begin
x := a[i];
while (cnt <> 0) and (x >= a[st[cnt]]) do dec(cnt);
suf[i] := st[cnt];
inc(cnt);
st[cnt] := i;
end;
cnt := 1;
st[cnt] := 1;
for i := 2 to n do
begin
x := a[i];
while (cnt <> 0) and (x >= a[st[cnt]]) do dec(cnt);
pre[i] := st[cnt];
cnt :=cnt+1;
st[cnt] := i;
end;
for i := 1 to n do
ans := max(ans, pre[i] * suf[i]);
writeln(ans);
end.
输入：
5
5 4 3 4 5

输出：8