countBlue :: Int -> Int -> Int -> Int
countBlue n bc rc = bc * (n `div` sumc) + n `mod` sumc `max` bc where
  sumc = bc + rc

main = do
  [n, bc, rc] <- map read . words <$> getLine
  print $ countBlue n bc rc