(define (main args)
  (let ([n (read)])
    ($ print $ quotient (+ n 1) 2))
  0)