Массив

[Vlad0n]

Здраствуйте, помогите пожалуйста решить задачу в паскале:
Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерность.
заранее спасибо

[Stilet]

Показывай как вводишь массив кодом.

[gaw4]

const n = 15;

 Var  matrix: array [1..n] of integer;
     i,p,num:integer;

begin
for i := 1 to n do
   begin
      //matrix[i] :=i;
        matrix[i] :=random(2)+1;
       write(matrix[i],'   ');
          num:=i+1;
     end;
num:=0;
  for i := 1 to n-1 do
   begin
          if ((matrix[i] + matrix[i+1]) mod 2)=0 then
          begin
          num:=i+1;
          break;
          end;
     end;
writeln;writeln;
    writeln( num);

[Vlad0n]

спасибо большое, а что значит "num:=i+1;" после условия? как это понимать?