Для каждого столбца матрицы найти произведение четных его элементов.

program semen;
var a:array[1..5,1..5] of integer;
n,m,i,j:byte;
p:integer;
begin
writeln ('Vvefite chislo elementov v massive a');
readln(n,m);
writeln('VVodim elementi massiva a');
for i:=1 to n do
for j:=1 to m do
begin
write ('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
begin
p:=0;
for j:=1 to m do
p:=p*a[i,j];
writeln(p);
end;
end.

program semen;
const
  M = 4;
  N = 3;
 
type
  Vector = array[0..M] of Integer;
  Ar = array[0..N] of Vector;
  
procedure FillArray(var ms : Ar; method : Boolean);
var
  i, j : Byte;
begin
  if (method) then
  begin
    Randomize;
    for i := 0 to M do
    begin
      for j := 0 to N do
      begin
        ms[j, i] := Random(21) - 10;
        Write('mass[', j+1, '][', i+1, ']=', ms[j, i], #9);
      end;
      WriteLn;
    end;
  end
  else
  begin
    for i := 0 to N do
      for j := 0 to M do
      begin
        Write('mass[', j+1, '][', i+1, ']='); ReadLn(ms[j, i]);
      end;
  end;
end;
 
function MultipVec(vec : Vector) : Integer;
var
  //Result : Integer; //раскомментировать при необходимости
  i : Byte;
begin
  Result := 1;
  for i := 0 to M do
    if not Odd(vec[i]) then
      Result := Result * vec[i];
  MultipVec := Result;
end;
 
var
  mass : Ar;
  vec : Vector;
  method : Boolean;
  i : Byte;
 
begin
  Write('Рандомно ли заполнять массив? (FALSE нет | TRUE да)'); ReadLn(method);
  FillArray(mass, method);
  WriteLn;
  for i := 0 to N do
  begin
    vec[i] := MultipVec(mass[i]);
    Write('vec[', i+1, ']=', vec[i], #9, #9);
  end;
end.