var t,te:text;
    x,y:array[0..100000] of longint;
    i,j,a,b,n:longint;
begin
assign(t,'scmax.in'); reset(t);
for i:=1 to n do
  begin
    read(t,a);
    if a>x[i-1] then
      begin
        j:=j+1;
        x[j]:=a;
      end;
  end;
close(t);
assign(t,'scmax.out'); rewrite(t);
write(t,x[1]);
for i:=2 to j do
  write(t,' ',x[i]);
close(t);
end.