Сформирован двумерный массив 5х5 случайным образом. Найти сумму их элементов и произведение.Информатика (турбо паскаль)

Предыдущий
вопрос Следующий
вопрос

program Lab4;
const N = 5;
var
A: array [1..N, 1..N] of integer;
i, j, summa, proizv: integer;

begin
// Заполнение массива случайными числами
randomize;
for i := 1 to N do
for j := 1 to N do
A[i,j] := random(10);

// Вывод массива на экран
for i := 1 to N do
begin
for j := 1 to N do
write(A[i,j]:4);
writeln;
end;

//Вычисление суммы и произведения
summa := 0;
proizv := 1;
for i := 1 to N do
for j := 1 to N do
begin
summa := summa + A[i,j];
proizv := proizv * A[i,j];
end;

writeln('Сумма элементов массива: ', summa);
writeln('Произведение элементов массива: ', proizv);
end.