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

program znanijatop;
const n = 9;vari:byte;
a:array[1..n] of byte;begin
for 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.