Дан массив из n чисел. Найти полупроизведение элементов массива

Program n1; const n=10; var a: array[1..n] of integer; i: integer; p: real; begin randomize; writeln('исходный массив:'); p:=1; for i:=1 to n do begin a[i]:=random(15)+1; write(a[i],' '); p:=p*a[i]; end; writeln; writeln('полупроизведение: ',p/2); end.