F# %u043A%u043E%u043C%u0431%u0438%u043D%u0430%u0442%u043E%u0440%u0438%u043A%u0430

let rec fact x =
    match x with
    | 0 -> 1
    | _ -> x * fact (x - 1)

let combination M N =
    fact M / (fact N*(fact (M-N)))
let a = combination 4 2

printf "%A" ("Число сочетаний=")
printfn "%A\n" (a)