import qualified Data.ByteString.Char8 as BS
import Control.Monad
import Data.Maybe (fromJust)
import Debug.Trace

solve :: Int -> Int
solve n = pay - back
    where
        pay = n * 800
        back = (n `div` 15) * 200

main :: IO ()
main = do
    n <- (fst . fromJust . BS.readInt) <$> BS.getLine
    print $ solve n