var
    t : array [1..5] of integer = (9, 3, 4, 5, 8);
    n, i, j, tmp : integer;
      
begin
    n := 5;
  
    for i := n - 1 downto 1  do
        for j := 1 to i do
            if t[j] > t[j+1] then
            begin
                tmp := t[j];
                t[j] := t[j+1];
                t[j+1] := tmp;
            end;
  
    for i := 1 to n do
        Write(t[i], ' ');
    WriteLn;
end.