(define (main args)
  (let ([n (read)])
    (print
     (quotient (* 3 n) 2)))
  0)