open System let sum = (Console.ReadLine() |> (fun s -> 100 * (int s))) + (Console.ReadLine() |> (fun s -> 25 * (int s))) + (Console.ReadLine() |> int) let hundred = (sum % 1000) / 100 let quarter = ((sum % 1000) % 100) / 25 let one = sum % 25 Console.WriteLine (hundred + quarter + one)