PROGRAM main
  BEGIN
    VAR %% can be empty or completely missing
      i, j, k : INTEGER;
      arr : ARRAY[1..10] of FLOAT;
    ENDVAR
    arr[1] := 1.0;
    FOR i := 2 TO 10 DO
      BEGIN
        arr[i] := arr[i-1] + 1.0;
      END
    FOR i := 1 TO 9 DO
    BEGIN
      FOR j := i + 1 TO 10 DO
      BEGIN
        IF arr[i] < arr[j]
        THEN
            arr[i] <-> arr[j];
        ENDIF;
      END
    END
    FOR i := 1 TO 10 DO
    BEGIN
      WRITE(arr[i]);
      WRITESP();
    END
    WRITELN();
    
  END