Паскаль 8 ! с клавиатуры вводится число 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.