Составьте программу вычисления произведения тех значений элементов двумерного массива, которые меньше 15. Задача Паскаль

Условие элемент массива меньше 15 и не равен нулю потому, что иначе произведение почти всегда будет равно нулю. Если оно не нужно - удали фрагмент 'and (a[i, j]0) '

Program n1;

Uses CRT;

Const n=10;

Var a: array[1 ... n, 1 ... n] of integer;

i, j: integer; p: longint;

begin

p:=1;

For i:=1 to n do

begin

For j:=1 to n do

begin

a[i, j]:=random (50) ;

if (a[i, j]<15) and (a[i, j]0) then p:=p*a[i, j];

write (a[i, j]:3) ;

end;

writeln;

end;

writeln ('Proizvedenie = ', p) ;

readln

end.