обнулить элементы массива B(9)
в четных ячейках . Помогите пжл , и блок схема

Спасибо огромное =)

var   i:integer;   b:array[1..9]of integer;beginwriteln('Исходный массив:');for i:=1 to 9 do  begin  b[i]:=random(10);  write(b[i],' ');  end;writeln;  writeln('Измененный массив:');for i:=1 to 9 do  begin  if i mod 2=0 then b[i]:=0;  write(b[i],' ');  endend.