ПАСКАЛЬ 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.