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

Var

a: array [1 ... 100] of integer;

n, c: integer;

p: real;

begin

randomize;

write ('n? ') ;

readln (n) ;

write ('array:') ;

for c : = 1 to n do begin

a[c] : = random (9) + 1;

write (' ', a[c]) ;

end;

writeln;

c : = 1;

p : = 1;

while c < = n do begin

p : = p * a[c];

inc (c, 2) ;

end;

writeln ('result: ', p:0:0) ;

end.