Помогите с информатикой

var

   d : array[1..4,1..4] of integer;

   p : int64 := 1;

begin

   for var i := 1 to 4 do begin

       for var j := 1 to 4 do begin

           d[i,j] := random(-15, 10);

           if d[i,j] lt; 0 then p *= d[i,j];

       end;

   end;

   writeln('творенье всех отрицательных значений массива: ', p);

end.

тип int64 употреблялся по следующей причине:

у нас массив 4х4 то есть 16 элементов

допустим случилось страшное и все 16 частей одинаковы -15

это -15^16 (минус 15 в 16 ступени) и это одинаково 6568408355712890625 что заметно превосходит спектр значений типа integer

и да, прочитать предложенное тобой имя массива я не осилил, потому именовал его просто d

не понятно)Нормально тусрмиснба?