Вася каждый день поднимается по одной и той же лестнице. одним шагом он может встать на следующую ступеньку или перешагнуть через одну ступеньку. он уже знает, сколькими способами он может подняться на верхнюю ступеньку. но недавно он обнаружил, что некоторые ступеньки обветшали, и ступать на них небезопасно. он составил список таких ступенек, и теперь интересуется, сколькими способами можно подняться по лестнице, не наступая на эти ступеньки.

входные данные
в первой строке вводится одно натуральное число n (n ≤ 40): количество ступенек.

во второй строке вводится одно натуральное число k (k ≤ n): количество опасных ступенек.

в третьей строке вводятся k различных натуральных чисел в диапазоне от 1 до n: номера опасных ступенек.

выходные данные
выведите одно число: количество способов попасть на n-ю ступеньку.

примеры
входные данные
10
3
5 1 2
выходные данные
0
входные данные
3
1
2
выходные данные
1

в цикле sum [i]: =sum+mas[i,j];

я поеду в москву и если встречу там друзей, то интересно проведем время.решение: м – я поеду в москвув – я встречу там друзей м×( в ® и )и – мы интересно проведем там время

если я поеду в москву и встречу там друзей, то интересно проведем время. решение: м×в ® и

не верно, что если погода пасмурная, то дождь идет тогда и только тогда, когда нет ветра.решение: д – идет дождьп – пасмурная погода  в – дует ветер 

делается по такому же принципу 

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.