main = do
   x <- getLine
   let y = words x 
   let a' = head y 
   let b' = last y
   let a = read a' ::Int
   let b = read b' ::Int
   let s' = (*) a  b
   let e = (*) 2 a
   let f = (*) 2 b
   let l' = (+) e f
   let s = show s'
   let l = show l' 
   putStrLn (s ++ " " ++ l)