Найти сумму всех нечётных элементов массива А(20), стоящих на четных номерах. Массив задан с помощью ГСЧ на отрезке [-20;20]

Program n1;const n=20;var a: array[1..n] of integer;i,sum: integer;beginrandomize;sum:=0;write('mas: ');for i:=1 to n dobegina[i]:=random(41)-20;write(a[i],' ');if (i mod 2=0) and (a[i] mod 2<>0)then sum:=sum+a[i]; end;writeln;write('sum=',sum);end.