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.