let solve n = let x = (n - 3) / 2 + 1 in let y = 1 + 2 * (x - 1) in (1 + y) * x / 2 let () = let l = read_line () |> int_of_string in solve l |> string_of_int |> print_endline