Составьте программу вычисления произведения тех значений элементов двумерного массива, которые меньше 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;beginp:=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);readlnend.