import Data.Int (Int64)

solve :: Integral a => a -> a
solve p = 10 ^ p - 1 - 2 * 9 ^ p `div` 3

main :: IO ()
main = print . solve =<< (readLn :: IO Int64)