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