Найти число пар "соседних" элементов массива,являющихся четными и кратные 3

В цикле, кажется, так: for I:=1 to N do  If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0) then Sum:=Sum+1;   Перед этим, конечно, нужно заполнить массив. N - число элементов и обнулить сумму. Можно заполнить в том же цикле: Sum:=0; writeln ('Число элементов:'); readln(n); writeln ('Числа:') for I:=1 to N do begin readln (Mas[I]); If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0) then Sum:=Sum+1; end; writeln ('Sum=',Sum);