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

main ::IO()
main=do
	p <- readLn ::IO Int
	putStrLn $ show ( solve p )
solve ::Int -> Int
solve x
	| x `mod` 2 == 1 = x+1
	| otherwise = x