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

program p1;const n=12;var a:array[1..12] of integer;i:integer;p:biginteger;beginp:=1;randomize;for i:=1 to n dobegina[i]:=random(3,10);end;for i:=1 to n dobegin p:=p*a[i];end;writeln(p);end.