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

uses crt;
var a:array[1..10] of integer;
i,n,k,s:integer;
sr:real;
begin clrscr;
k:=0;s:=0;
writeln('Kolichestvo elementov: ');readln(n);
for i:=1 to n do
begin
write('A[',i,']= ');readln(a[i]);
end;
for i:=1 to n do
if i mod 2<>0 then
begin
inc(k);
s:=s+a[i];
end;
sr:=s/k;
writeln(sr:1:2);
readln
end.

uses crt;
var A: array [1..100] of integer;
    sa: real;
    n,i,k: integer;
begin
write ('Размер массива ');
readln(n);
sa:=0;
writeln ('Заполняем массив');
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    if i mod 2=1 then
       begin
       sa:=sa+a[i];
       inc(k);
       end;
    end;
writeln ('Дан массив');
for i:=1 to n do
    write(a[i]:4);
writeln;
writeln ('Среднее арифметическое элементов, стоящих на нечетных местах =',sa/k:7:2);
readkey
end.