вводим день недели с клавиатуры если сб или вс, то выводит 'выходные' , а если пн, вт, ср ,чт, пт, то вводим 'будни'.

// f# [< entrypoint> ] let main argv =     let getrandomcollection n =         let rand = new system.random()         array.map (fun x -> rand.next(-10, 10)) [| 1..n |]     let input = getrandomcollection 15     let reverse = input |> array.rev     let notchangedcount = array.map2 (fun x y -> x = y) input reverse |> array.filter (fun x -> x) |> array.length     let maxabsnotpositiveelem =         input         |> seq.where (fun x -> x < = 0)         |> seq.maxby (fun x -> system.math.abs x)     system.console.writeline (input |> array.map (fun x -> sprintf "%d" x) |> string.concat " ")     system.console.writeline (reverse |> array.map (fun x -> sprintf "%d" x) |> string.concat " ")     system.console.writeline (notchangedcount |> sprintf "not changed: %d")     system.console.writeline (maxabsnotpositiveelem |> sprintf "max min element: %d")     system.console.readkey true |> ignore     0