Скажите, пожалуйста, почему это не работает ­?

Опи­ши­те на рус­ском языке или одном из язы­ков про­грам­ми­ро­ва­ния ал­го­ритм под­сче­та мак­си­маль­но­го ко­ли­че­ства под­ряд иду­щих чет­ных эле­мен­тов в це­ло­чис­лен­ном мас­си­ве длины 30.

Const {Секция объявления констант}
n =30; {Объявление "n"}
Var mas: array [0..n] of integer; {Объявляем массив "mas", состоящий из 30 элементов}
a,i:integer; {Объявляем переменные "а" и "i"}
begin
a:=0;
for i:= 0 to n do begin {Цикл "i", отладочная печать}
readln(mas[i]); {Заполняем массив "mas"}
if (((mas[i] mod 2=0)) and (mas[i+1] mod 2=0)) then inc(a); {Условие задачи, записанное с помощью "IF"}

writeln(a); {Вывод результата}
end; {Для первого "begin"}
end. {Окончание программы}

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

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

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.