Найти число пар соседних элементов массива, являющихся чётными числами. ABC Pascal !!!

vara: array [1..10] of integer;i, s: integer;beginfor i:=1 to 10 dobegina[i]:=random(36)+10;writeln('a[', i, '] = ', a[i]);end;for i:=2 to 10 doif (a[i] mod 2 = 0) and (a[i-1] mod 2 = 0) then s:=s+1;writeln('Число соседних четных пар: ', s);end.