program ljlf;

var

n,i,j,ans:integer;

a,b,t:array[1..100]of integer;

begin

readln(n);

for i:=1 to n do read(t[i]);

a[1]:=1;b[1]:=1;

for i:=2 to n do

begin

a[i]:=1;

b[i]:=1;

end;

for i:=1 to n do

for j:=i+1 to n do

begin

if t[j]>=t[i] then a[j]:=a[i]+1;

if t[j]