Написать программу, которая вводит десять чисел в одномерный массив, а затем определяет среднее арифмитичне элементов с четными индексами и нечетными индексами

var r,n,m,max,k,el,Sumh,Sumnh:integer;C:Array[0..9]of integer;Sh,Snh:real; Beginfor r:=0 to 9 do beginC[r]:= random(50)-25;  write(C[r]:4);if r mod 2 = 0 then Sumh := Sumh + C[r]else Sumnh:= Sumnh + C[r];end;Sh:= Sumh/5;Snh:= Sumnh/5;writeln;writeln('среднеарифметическое элемент с четными индексами ',Sh:6:4);write('среднеарифметическое элемент с четными индексами ',Snh:6:4);end.