Напишите задачку на языке паскаль

[Знаменок]

Ограничение по времени: 1 секунда
Ограничение по памяти: 64 Мб
Антон играет в игру "Не упадёт!". В этой игре
нужно строить башню из кубиков и
цилиндров . Антон заметил, что если ставить
хотя бы 2 цилиндра друг на друга, то башенка
неминуемо падает, а во всех других случаях -
держится. У АНтона есть неограниченное
количество кубиков и цилиндров - помогите
ему узнать, сколько различных устойчивых
башенок высоты H н сможет построить.
Формат входных данных:
На вход программе подаётся одно число,
высота башни - H (2<=H<=1000). <= - это
меньше либо равно
Формат выходных данных:
Выведите количество способов построить
башню высотой H из кубиков и цилиндров.