Найти произведение элементов массива, имеющих нечетные индексы и выбрать из них минимальный

если нужно выводить каждый член автоматически заданной последовательности, то меняем строки***for i:=1 to 20 doA[i]:=random(1000);***на ***

***for i:=1 to 20 doA[i]:=random(1000);

нет

меняем ***for i:=1 to 20 doA[i]:=random(1000);***на***for i:=1 to 20 dobeginA[i]:=random(1000);write(A[i]:5);end;***