В матрице m найти произведение положительных элементов

program zz1;

var i, j, k: integer; / / задаем переменные целого типа

m: array[1 ... 3,1 ... 3] of integer;

begin

for i:=1 to 3 do begin

for j:=1 to 3 do begin

m[i, j]:=random (10) - 5; / / заполнение матрицы случайными числами и вывод на экран

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

end;

writeln;

end;

k:=1;

for i:=1 to 3 do begin / / проверка положительных элементов и вычисление произведения

for j:=1 to 3 do begin

if m[i, j] > 0 then k:=k * m[i, j];

end;

end;

write (' произведение положительных элементов = ', k); / / вывод ответа

end.