Заполнить массив N чисел значениями и вывести на экран произведение элементов с чётными номерами. Заполнить массив N чисел значениями и вывести на экран их среднее арифметическое

// PascalABC.Net 3.0, сборка 1052
const
  nn=100;
var
  a:array[1..nn] of integer;
  p,s:longint;
  i,n:byte;
begin
  Write(Введите количество элементов в массиве: ); Read(n);
  Writeln(Вводите целочисленные элементы массива через пробел);
  s:=0; p:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if i mod 2 = 0 then p:=p*a[i];
    s:=s+a[i]
  end;
  Writeln(Произведение элементов с четными номерами: ,p);
  Writeln(Среднее арифметическое элементов: ,s/n)
end.

Тестовое решение:
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8