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

// 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

Понятно, что число должно быть ОТРИЦАТЕЛЬНЫМ, поскольку, если оно положительное, например равно 2 получаем2, 2, 5. Но это НЕУБЫВАЮЩИЙ ряд.Тогда пусть X=-10Получаем:-10,  10,  101Теперь пусть Х = - 1/2.Получаем-1/2,  1/2,    5/4.Очевидно в программе будет строчка:Writeln(x, '    ', -x, '      ', 1+x*x);