Program zad2c;
  var n,i,j,x,r,l,m:integer;
  a,b:array[1..20] of integer;
  flag:boolean;
Begin
  read(n);
  for i:=1 to n do
    read(a[i]);
  j:=1;
  b[j]:=a[1];
  for i:=2 to n do
    if a[i]>b[j] then
    begin
      j:=j+1;
      b[j]:=a[i];
    end;
  for i:=1 to j do
    writeln(b[i]);
End.
  