let aba n = let rec f n len sum = if len > n then sum else f n (len+2L) (sum+(n-len+1L)) f n 3L 0L let L = stdin.ReadLine() |> int64 aba L |> stdout.WriteLine