В цикле, кажется, так:

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);