var
  a: array[1..200] of integer;
  i, n: integer;
  
begin
  readln(n);
  for i := 1 to n do
  begin
    readln(a[i]);
    if i > 1 then
      if a[i] > a[i-1] then
        a[i] := a[i-1];
  end;
  for i := 1 to n do
    write(a[i], ' ');
end.