Напишите программу в двухмерном массиве 6*3 для каждой нечетной строки определить произведение положительных элементов

var arr:array[1..6,1..3] of integer;i,j:integer;p:longint;begin randomize;p:=1;for i:=1 to 6 dobeginfor j:=1 to 3 do beginarr[i,j]:=random(10);write(arr[i,j]:5);end;writeln;end;for i:=1 to 6 dobeginif i mod 2<>0 thenbeginfor j:=1 to 3 doif arr[i,j]>0 then p:=p*arr[i,j];end;end;writeln('Произведение положительных элементов нечетных строк: ', p);end.