Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 10 включительно – показатели среднего отклонения от нормальной работы прибора за день, зафиксированные в течение месяца. Написать на языке Паскаль алгоритм подсчета максимального количества подряд идущих дней, в которые прибор работал исправно (отклонение от нормальной работы прибора за день было равно 0), при условии, что хотя бы один день прибор работал исправно. Исходные данные объявлены так, как показано ниже. Запрещается использовать необъявленные переменные, но разрешается не использовать часть из них.

const n = 30;
var a : array [1 .. n] of integer;
I, k1, k2 : integer;

begin for i := 1 to n do readln ( a [ i ] );
…
end.