main = do
    a <- getLine
    b <- getLine
    let x = read a :: Double
        y = read b :: Double
    putStrLn $ show ( f x y ) ++ " " ++ show ( g x y )
        where f x y= x * y 
              g x y = 2 * x + 2 * y
 