Дано число х.напечатать в порядке возрастания числа х,(1+х2),|х| 2-квадрат

Понятно, что число должно быть ОТРИЦАТЕЛЬНЫМ, поскольку, если оно положительное, например равно 2 получаем
2, 2, 5. Но это НЕУБЫВАЮЩИЙ ряд.

Тогда пусть X=-10
Получаем:

-10,  10,  101

Теперь пусть Х = - 1/2.
Получаем
-1/2,  1/2,    5/4.

Очевидно в программе будет строчка:
Writeln(x, '    ', -x, '      ', 1+x*x);

// F#
[<EntryPoint>]
let main argv =
    let x = System.Console.ReadLine() |> System.Double.Parse
    let numbers = [| x; 1.0+x*x; System.Math.Abs x |] |> Array.sort
    let result = numbers |> Array.map (fun x -> sprintf "%f" x) |> String.concat " ";
    printf "%s" result
    System.Console.ReadKey true |> ignore
    0