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