module Main where

import Control.Monad
import Text.Printf (printf)

main :: IO ()
main = do
    d <- readLn :: IO Double
    printf "%f\n" $ d * 108 / 100