main :: IO ()
main = do 
  line <- getLine
  let (a:b:[]) = map read $ words line :: [Int]
  putStrLn $ show (area' a b) ++ " " ++ show (length' a b)


area' :: Int -> Int -> Int
area' x y = x * y

length' :: Int -> Int -> Int
length' x y =  (x + y) * 2