Const
 N = 5;
Var
 FIn, FOut : text
 S, T          : array[1..N] of integer;
 i               : byte;
Begin
 assign(FIn,'input.txt');
 assign(FOut,'output.txt');
 reset(FIn);
 rewrite(FOut);
 for i := 1 to N   do
   read(FIn,S[i]);
 T[1] := S[1];
 for i := 2 to N   do
   if T[i-1] > S[i] then
     T[i] := S[i]
   else
     T[i] := T[i-1];
 for i := 1 to N   do
   write(FOut,T[i], ' ');
 close(FIn);
 close(FOut);
End.