泽泽用了100000000000000000000 mod 10天的时间爬出了长城。长城的另一端是一条隧道，泽泽走了进去……
泽泽不小心又到了英国。英国多雨，基本上隔2天就要下一场雨。泽泽人品不好，到这里的时候天正在下酸雨。
酸雨会腐蚀建筑物，让那些建筑物显得很难看。英国有家工厂免费为一条街道的建筑物的墙面涂油漆。心肠虽好，但是由于技术问题，他们只能涂出一个矩形。现在由于酸雨事态严重，街道办主任下命令涂出面积最大的矩形。
街道上的建筑物高度参差不齐，那该怎么办呢？
他们想到了泽泽。
泽泽接到了这个任务，就去测量了这个街道上的所有建筑物的高度。
请根据泽泽的数据，计算出最大面积。
Input
第1行1个整数n。表示有几幢楼。
之后的一行有n个整数，表示第几幢楼的高度，最高的楼的高度为m。
Output
一个整数，制作防护板的最大面积。
Sample Input
20
5 3 7 4 8 9 2 4 5 5 5 4 4 4 8 7 4 4 5 10
Sample Output
52
题目提示
最大面积为如图灰色部分所示 ：
Hint
对于30%的数据，n<=100，m<=20
对于100%的数据，n<=100000，m<=50
我们可以用m找到最高的高度
然后，两个循环。
1<=i<=m
1<=j<=n
然后我们搜a[j]是否大于等于i，是则s:=s+1；否则为0
最后判断s*i>x，更新最大值。
代码如下：
var a:array[1..100000]of longint; n,i,j,x,s,m:longint; begin read(n); for i:=1 to n do begin read(a[i]); if a[i]>m then m:=a[i]; end; for i:=1 to m do begin s:=0; for j:=1 to n do begin if a[j]>=i then s:=s+1 else s:=0; if s*i>x then x:=s*i; end; end; write(x); end.