begin
  var arr := ArrRandom(ReadLnInteger('Введите размер массива:'), -100, 100);
  Write('Исходный массив: ');arr.Println(#32);
  var i := Low(arr);
  var flag := true;
  var start := Odd(arr[Low(arr)]);
  while flag and (i < arr.Length - 1) do
  begin
    case start of
      true: if not ((Odd(arr[i]) and not Odd(arr[i + 1]))) then flag := false;
      false: if not ((not Odd(arr[i]) and Odd(arr[i + 1]))) then flag := false;
    end;
    i += 1;
  end;
  WriteLn('Порядковый номер первого элемента нарушающего последовательность - ', i);
end.