let number = System.Console.ReadLine() |> int

let mutable factors = []

for i in 2 .. int (sqrt (float number)) do

    if number % i = 0 then

        printfn "%d is factor" i

        factors = i::factors 

    else

        factors = factors

printfn "%A" factors

​