uses crt;
var i,n,max,j:longint;
    a,b:array[1..1000000] of longint;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    max:=a[n];
    j:=0;
    for i:=n downto 1 do
      begin
          if a[i]>=max then
            begin
                inc(j);
                b[j]:=a[i];
                max:=a[i];
            end;
      end;
    for i:=j downto 1 do write(b[i],' ');
readln;readln;
end.

=============================

uses crt;
var i,j,n,k:longint;
    t:qword;
    a:array[1..100000] of longint;
begin
    clrscr;
    readln(n,k);
    for i:=1 to n do read(a[i]);
    for i:=1 to n do
      begin
          t:=0;
          for j:=i to n do
             begin
                 t:=t+a[j];
                 if t/(j-i+1)=k then
                   begin
                       write(j-i+1,' ',i);
                       readln;readln;
                       exit;
                   end;
             end;
      end;
    writeln('0');
readln;readln;
end.