Найти сумму значений элементов массива D (8), стоящих на нечетных местах. Значения элементов массива вводятся с клавиатуры.

program n1; uses crt; var aw:array[1 ... 10] of integer; i, w, g:integer; begin g:=0; w:=10; for i:=0+1 to w do begin aw[i]:=random (100) ; write (aw[i]:6) ; end; writeln () ; write ('Чот') ; for i:=0+1 to w do begin if aw[i] mod 2 = 0 then g:=g+1; end; write ('Всего чотных чисел ', g) ; writeln () ; write ('Не чот') ; g:=0; for i:=0+1 to w do begin if aw[i] mod 2 > 0 then g:=g+1; end; write ('Всего не чотных чисел ', g) ; end.

только в столбик