program Noname9;
var
    num : array[1..10] of integer;
     i,j: integer;
     temp : integer;
procedure input;
begin
  for i :=1 to 10 do
    readln(num[i]);
end;

begin
    input;
    for i := 1 to 9 do
        for j:= 1 to 10 -i do
            if num[j] > num[j+1] then
                begin
                    temp:= num[i];
                    num[i] := num[i+1];
                    num[i+1] := temp;
                end;
end.