open System

let solve (startNum:int, endNum:int) : int =
[startNum.. endNum]
|> List.filter(fun(x)-> x % 2 = 0)
|> List.sum

printf "%d" <| solve(1, (Console.ReadLine() |> int))



Try it online!