---

program Variant5_Task3;
const
  ROWS = 10;
  COLS = 14;
var
  A: array[1..ROWS, 1..COLS] of integer;
  i, j: integer;
  colSum: integer;
  foundAny: boolean;
begin
  // Инициализация генератора случайных чисел для заполнения матрицы
  Randomize;
  
  writeln('Сгенерированная матрица A(10x14):');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      // Заполняем случайными числами от -5 до 5, чтобы чаще выпадали нули
      A[i, j] := Random(11) - 5; 
      write(A[i, j]:4);
    end;
    writeln;
  end;
  writeln;

  foundAny := false;
  
  // Проходим по всем столбцам
  for j := 1 to COLS do
  begin
    // Проверяем условие: равен ли первый элемент столбца нулю
    if A[1, j] = 0 then
    begin
      foundAny := true;
      colSum := 0;
      
      // Считаем сумму элементов в этом столбце
      for i := 1 to ROWS do
        colSum := colSum + A[i, j];
        
      writeln('Столбец №', j, ' начинается с 0. Сумма его элементов = ', colSum);
    end;
  end;
  
  if not foundAny then
    writeln('В матрице нет столбцов, первый элемент которых равен 0.');
end.