Имеется массив X(N). Вычислить и вывести на печать сумму и произведение элементов массива, имеющих чётный номер.Массив X(N) вывести на печать.

Const   NX = 30; Var  A:array[1..NX]of integer; i,N,s,p:integer; Begin WriteLn('Введите число элементов массива');Read(N); p:=1;Randomize; For i:= 1 to N do  Begin  A[i]:= random(25)-10;  if i mod 2 = 0 then begin s:= s + A[i]; p:=p * A[i];  Write(A[i]:4); End; End; Writeln;Writeln('Массив Х[',N,']');  For i:= 1 to N do    Write(A[i]:4);  Writeln;Writeln('Сумма S = ', s);  Writeln('Произведение Р = ', P); End.