program novekvo;
Var a:array[1..5] of real;
    i,j:byte;
    cs:real;
begin
    For i:=1 to 5 do Readln(a[i]);
    for i:=1 to 4 do
     for j:=1 to 5-i do
      if a[j]>a[j+1] then
                     begin
                     cs:=a[j];
                     a[j]:=a[j+1];
                     a[j+1]:=cs
                     end;
    For i:=1 to 5 do WriteLn(a[i]:6:2);
    ReadLn;
end.