Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер вводим с клавиатуры (<=20)

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.