main :: IO ()
main = do input <- getLine
          let a' : b' : _ = words input
          let a = read a' :: Int
          let b = read b' :: Int
          let area = a * b
          let circ = 2 * (a + b)
          putStrLn $ show area ++ " " ++ show circ