Программа

Program B(input,output);
{ Ввод матрицы,
  вычисление произведения
  элементов столбцов,
  вывод результатов }
Var
  g:array[1..3,1..4] of byte;  { Описание матрицы }
  i,k:integer;                 { Счетчики }
  product:longint;             { Переменная для набора произведения }
BEGIN
  for i:=1 to 3 do             { Цикл ввода строк матрицы }
    for k:=1 to 4 do           { Цикл ввода элементов строк }
      Begin
        Write('Введите g(',i,',',k,') ');
        { Приглашение ввести элемент матрицы }
        Readln(g[i,k]) { Ввод элемента матрицы }
      End;
  for k:=1 to 4 do  { Цикл вычисления и вывода произведения
                      элементов столбцов матрицы }
    Begin
      product:=1;
      for i:=1 to 3 do product:=product*g[i,k]; { Набор произведения }
      Writeln('Произведение элементов ',k,'-го стобца ',product)
      { Вывод произведения }
    End;
  Writeln(' -------------------------');      { Вывод верхней линии таблицы }
  for i:=1 to 3 do                            { Вывод строк матрицы }
    Begin
      for k:=1 to 4 do Write(' | ',g[i,k]:3); { Вывод элемента матрицы }
      Writeln(' |');                          { Вывод правой линии таблицы }
      Writeln(' -------------------------'){ Вывод разделяющей линии таблицы }
    End
END.