СРОЧНОВ ЧЕМ ОШИБКА И ЧТО НЕ Верно???

1) Один "End." излишний

2) Программа у тебя считает сумму чётных чисел, причёем тут среднее арифметическое не понятно. Предпоследняя строка обязана смотреться так Writeln('сумма четных чисес = ' , s);

Ошибка, не чётных, а каждое 2-ое. В чём смысл программы? Задача?

Переменная s нигде не объявлена

Var a: array [1..100] of real;
i,n: integer;
begin
writeln('Введите число');
readln(a[i]);
s:=0;
for i:=1 to n do
if i mod 2 = 0 then s:=s+a[i];
writrln('Отыскать среднее арифметическое ',s);
end.

Но сама программка ошибочно написана... Она не будет вычислять среднее арифметическое четных частей массива