Program a8_44;
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
      b:array[1..n] of integer;
      i,j,q,w:integer;
BEGIN
clrscr;
randomize;
writeln('Массив "А"');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(3)+1;
        write(a[i,j]:3);
      end;
    writeln;
  end;
for i:=1 to n do
  begin
    b[i]:=1;
    for j:=1 to n do
      if (a[j,i]>0) and (a[j,i] mod 2=0) then
        b[i]:=b[i]*a[j,i];
  end;
writeln(' Массив "В"');
for i:=1 to n do
  write(b[i]:4);
readln;
END.