Массив состоит из 12 элементов (случайные числа от 3 до 10). найти произведение его элементов.

Program p1;

const n=12;

var a:array[1 ... 12] of integer; i:integer; p:biginteger;

begin

p:=1;

randomize;

for i:=1 to n do

begina[i]:=random (3,10);

end;

for i:=1 to n do

begin

p:=p*a[i];

end;

writeln (p);

end.