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

Var a:array[1..6] of integer; i,k,s:integer;
begin
for i:=1 to 6 do read(a[i]);
k:=0; s:=0;
for i:=1 to 6 do
if i mod 2 = 1 then begin k:=k+1; s:=s+a[i]; end;
writeln('Среднее арифметическое элементов массива с нечетными номерами = ',s/k);
end.