Водномерном массиве подсчитать количество пар стоящих рядом нечетных элементов.

Program blabla;
const N = 100;
var i, k: integer;
a: array [1..N] of integer;
begin
k:=0;
readln(a);
for i:=1 to N do
if (a[i] mod 2 >< 0) and (a[i-1] mod 2 >< 0) then
k:= k+1;
writeln(k);
end.