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
      FOR j := i + 1 TO 10 DO
      BEGIN
        IF arr[i] < arr[j]
           arr[i] <-> arr[j];
      
    FOR i := 1 TO 10 DO
      WRITE(arr[i]);
      WRITESP();
    
    WRITELN();
    
  END