main :: IO ()
main = do
  n <- readLn :: IO Int
  print $ 3*n`div`2