Дана матрица целых чисел размером 5 на 6. Сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего столбца.

constn=5;m=6;vara:array[1..n,1..m]of integer;b:array[1..m]of longint;k,i,j:integer;p:longint;begin   for i:=1 to n do      begin         writeln;                for j:=1 to m do                 begin                    a[i,j]:=random(20)-10;                     write(a[i,j]:4);                 end;      end;writeln;for j:=1 to m do  beginp:=1;     for i:=1 to n do          if (a[i,j]mod 2=0)and(a[i,j]>0) then             p:=p*a[i,j];if p<>1 then  begin     k:=k+1;     b[k]:=p;  end;end;for i:=1 to k do   write(b[i]:8);end.