Дан массив А, состоящий из 12 элементов. Найти сумму всех значений элементов этого массива , стоящих на чётных местах

Program n1;var a: array[1..12] of integer;i,sum: integer;beginrandomize;sum:=0;writeln('исходный массив:');for i:=1 to 12 dobegina[i]:=random(15);write(a[i],' ');if i mod 2=0 then sum:=sum+a[i];end;writeln;writeln('сумма: ',sum); end.