main = do
    line <- getLine
    putStrLn (unwords (map show (solve (map read (words line)))))

solve :: [Int] -> [Int]
solve [width, length] = [(area width length), (perimeter width length)]
area width length = width * length
perimeter width length = 2 * (width + length)

