Дан массив к(n) , n= 12 . вычислить произведение значений элементов массива.

//Для Pascal ABC.Net
Var k:array[1..12] of longint;i:byte;pr,pr1:int64;
Begin
for i:=1 to 12 do
read(a[i]); //Читаем каждый из элементов массива
pr:=1;
pr1:=1;
for i:=1 to 6 do
pr*=a[i]; //Перемножаем каждый из 6 элементов массива
for i:=7 to 12 do
pr1*=a[i]; //Перемножаем каждый из 6 последних элементов массива
writeln(pr*pr1);
End.
//Не знаю, к чему я сделал две ячейки произведения. Наверное, перегрузки боялся.
//А вообще, там были указаны ограничения?