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

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

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

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

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

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

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.

                                                          профессия  на открытом воздухе       в помещениях     в небольших         в небольших                                                                         замкнутых             условиях                                                                          пространство.       труда