Const
 Nm=100;
Var
 N,i,j,N_max:Byte;
 i_max:Array[1..Nm] of Byte;
 A:Array[1..Nm] of Integer;
 Max:Integer;
Begin  
 Write('N= ');
 Readln(N);
 For i:=1 to N do
  begin
   Write('A[',i,']= ');
   Readln(A[i]);
  end;
 Writeln;
 For i:=1 to N do Write(A[i]:4);
 Writeln;
 Writeln;
 Max:=A[1];
 For i:=2 to N do
  If A[i]>Max then Max:=A[i];
 N_max:=0;
 For i:=1 to N do
  If A[i]=Max then
   begin
    Inc(N_max);
    i_max[N_max]:=i;
   end;
 For j:=1 to N_max do
  begin
   Write(A[i_max[j]]:4);
   i:=i_max[j];
   repeat
    Inc(i);
    if (i<=N) and (A[i]<A[i-1]) then Write(A[i]:4);
   until (A[i]>=A[i-1]) or (i>N);
   writeln;
  end;
 Readln
End.