С клавиатуры вводится число n,а за ним-массив из n элементов.Найдите и выведите на экран произведение всех положительных элементов массива с чётными индексами.

var  a: array[1..100] of integer;   i, n: integer;   p: integer;    begin   randomize;   writeln('massiv: ');   readln(n);   for i := 1 to n do    a[i] := random(10) - 5;   writeln('Исходный массив: ');  for i := 1 to n do   write(a[i], ' ');   p:=1;   for i := 1 to n do      if (a[i]>0) and (i mod 2=0) then p:=p*a[i];       writeln('Произведение  =',p);  readln.   end. _____________________________

Var A,P:real; N:integer; Begin P:=1; Write('N = ');ReadLn(N); WriteLn('Введи массив'); For N := 1 to N do Begin ReadLn(A); if (N mod 2 = 0)and(A>0) then P:=P*A End; WriteLn(P) End.