main = do
	n <- readLn
	let memo = 1 : 2 : [ memo!!(i-1) + memo!!(i-2) | i<-[2..n-1] ]
	print $ last memo