Массив А вводится с клавиатуры Найти среднее арифметическое его элементов с нечетными номерами.Размер произвольный .решение паскаль .решите пожалуйста

Program asd;
USES crt;
Const n=5;
VAR A:array[1..n] of integer;
i,ind:integer; s,sr:real;
BEGIN
Clrscr;
Writeln(Заполните массив числами: );

For i:=1 to n do
 begin
  Write(A[,i,]: );
  Readln(A[i]);

 end;
 For i:=1 to n do
  begin
   Ind:=i;

   If not Ind mod 2 = 0 then
   begin

    S:=S+A[i];
    Sr:=S/n;
   end;
  end;

  Writeln(Ср. ар. элементов с нечетными индексами: ,Sr);
END.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.