program ideone;

var
i, j: integer;
t: real;
arr: array[1..100] of real;

begin
    for i := 1 to 100 do
        read(arr[i]);

    for i := 2 to 100 do
    begin
        j := i - 1;

        while (j >= 1) and (arr[j] > arr[j + 1]) do
        begin
            t := arr[j];
            arr[j] := arr[j + 1];
            arr[j + 1] := t;
            j := j - 1;
        end;
    end;

    for i := 1 to 100 do
        write(arr[i], ' ');
end.