var a,l:array[1..100] of longint;
    fin,gout:text;
    i,n,max,mx,j,u,p:longint;
begin
assign(fin,'scmax.in'); reset(fin);
assign(gout,'scmax.out'); rewrite(gout);
readln(fin,n);
for i:=1 to n do read(fin,a[i]);
l[n]:=1;
mx:=0;
for i:=n-1 downto 1 do begin
        max:=0;
        for j:=i+1 to n do if(l[j]>max) and (a[i]<a[j]) then max:=l[j];
        l[i]:=max+1;
        if l[i]>mx then begin
                  p:=i;
                  mx:=l[i];
                  end;
        end;
write(gout,a[p],' ');
u:=a[p];
dec(mx);
for i:=p+1 to n do
    if (a[i]>u) and (l[i]=mx) then begin
        write(gout,a[i],' ');
        u:=a[i];
        dec(mx);
        end;
close(fin);
close(gout);
end.