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

main = do
   n <-readLn
   let a = array (1,n+2) ( (1,1) : (2,2): [(k , a!(k-1) + a!(k-2)) | k <- [3,4..n+2]] )
   print (a ! n)