import Control.Monad
import Control.Applicative
import Data.List

main ::IO()
main=do
	--
	p <- readLn :: IO Int
	putStrLn $ show	$ p - 1
	
	
	
	--