В двумерном массиве найти произведение элементов матрицы, находящихся ниже главной диагонали - Pascal ABC

Формулировка задачи:

Найти произведение элементов матрицы, находящихся ниже главной диагонали. Имя массива-R. Размер массива: 4,4. Тип данных - действительный. Заполнена матрица должна быть рандомно (randomize) числами от 0 до 50.

Решение задачи: «В двумерном массиве найти произведение элементов матрицы, находящихся ниже главной диагонали»

Листинг программы

uses crt;
var a: array [1..4,1..4] of integer;
    i,j,p: integer;
begin
writeln('Дана матрица');
p:=1;
for i:=1 to 4 do
    begin
    for j:=1 to 4 do
        begin
        a[i,j]:=random(50);
        write(a[i,j]:3);
        if j<i then p:=p*a[i,j];
        end;
    writeln;
    end;
writeln('Произведение ниже главной диагонали=',p);
end.

Объяснение кода листинга программы

В начале объявляются необходимые переменные: массив a размером 4x4, счетчики i и j для прохода по диагоналям матрицы, и переменная p для хранения произведения.
Выводится сообщение о том, что дана матрица.
Переменная p инициализируется единицей.
Запускается цикл for i := 1 to 4 do, который будет выполняться 4 раза, для каждого элемента массива a.
Внутри цикла запускается вложенный цикл for j := 1 to 4 do, который также будет выполняться 4 раза, для каждого элемента массива a.
Внутри вложенного цикла присваивается случайное значение каждому элементу массива a[i,j].
Выводится значение элемента массива a[i,j] с помощью функции write(a[i,j]:3).
Если j < i, то переменная p обновляется значением произведения элементов a[i,j] и a[i,j+1].
По завершении вложенного цикла выводится сообщение о произведении ниже главной диагонали и значение переменной p.
Программа завершается.