main = do [n,g,v] <- (map read . words) <$> getLine :: IO [Int] let n' = floor $ (fromIntegral n) / 5 putStrLn . show $ (fromIntegral g) * (fromIntegral n') / (fromIntegral v)