не могу сделать напишите само решение на языке паскаль

[Знаменок]

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

[evg_m]

Вы решили сделать все олимпиадные задачи.
http://programmersforum.ru/showthread.php?t=115759
http://programmersforum.ru/showthread.php?t=115833
http://programmersforum.ru/showthread.php?t=115757
Поздравляю но причем тут мы?
сначала просто попытайтесь написать программу (без дополнительных условий время память и т.п.) Если не получается приводим код и задаем конкретный вопрос.

по поводу данной задачи наводящие советы.
башня высоты N (двоичное число размерности N) или массив битов длины N.
в записи этого числа 1 цилиндр 0 кубик.
два цилиндра на могут быть рядом (не может быть двух 1 подряд).
число разных башен высоты N = число чисел размера N для которых выполнено условие нет двух 1 подряд.
Все в ваших руках. Дерзайте.

P.S. Для работы с отдельными битами в числе есть операции
00001110 and 10001000 =00001000
00100110 or 10000000 =10100110
00000001 shl 1 =00000010
10000000 shr 1 =01000000