Заполнить массив 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