сформулировать массив из 9 элементов введенных с клавиатуры и обнулить каждый 2 элемент массива

program znanijatop;const n = 9;vari:byte;a:array[1..n] of byte;beginfor i:=1 to n do beginwriteln('vvedite ',i,' element');readln(a[i]);end;for i:=1 to n do beginwriteln('do');write(a[i],' ');end;for i:=1 to n do beginif NOT Odd(i) thena[i]:=0;end;for i:=1 to n do beginwriteln('posle');write(a[i],' ');end;end.

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrReal(9);  for var i:=0 to 8 do    if i.IsOdd then a[i]:=0;  a.Printlnend.