Дан массив К(N) , N= 12 . Вычислить произведение значений элементов массива. Помогите!

спасибо

В простом Pascal ABC надо будет заменить longint на integer и поменять pr*=a[i]; на pr:=pr*a[i];, затем pr1*=a[i]; на pr1:=pr1*a[i];

ок

не работает((

Что отвечает?

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