Программа которая находит произведение элементов массива стоящих на честных местах. Turbo Pascal. Информатика 9 класс. ​

var p,i: integer;

a:array[0..10] of integer;

begin

p:=1;

randomize;

for i:=1 to 10 do

begin

a[i]:=random(10);

write(a[i],' ');

if i mod 2 = 0 then

 p:=a[i]*p

end;

writeln;

writeln(p);

end.