const fi='SN.dat';
var n,j,i,dau,cuoi,d,max:longint;
    a:array[0..100000000]of longint;
    f:text;
begin
        assign(f,fi); reset(f);
        i:=1;
        while not eof(f) do begin
                read(f,a[i]);inc(i);
        end;
        close(f);
        n:=i-1; i:=1; max:=0;
        while i<n do
                begin
                        j:=i; d:=1;
                        while (a[j]<=a[j+1]) and (j<n) do begin
                                inc(d); inc(j);
                        end;
                        if d>max then begin
                                dau:=i; cuoi:=j; max:=d;
                        end;
                        i:=j+1;
                end;
        for i:=dau to cuoi do 
                write(a[i],' ');
        readln;
end.