main :: IO ()
main = do
    d <- readLn
    putStr . (++ ".") . show $ (d * 108) `div` 100
    print $ (d * 8) `mod` 100