Создать одномерный числовой массив из 6 элементов и вывести результат на экран. затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями

Program n1;
const n=6;
var a: array [1..n] of integer;
sum,i: integer;
begin
sum:=0;
for i:=1 to n do
begin
a[i]:=random(15)+1;
write(a[i],' ');
if i mod 2<>0 then sum:=sum+a[i];
end;
writeln;
writeln(sum/2);
end.