procedure nomer11(   ); ///сюда подаем параметры : саму матрицу arr и ее размеры m n
var
  // уже есть переданные m столбцов , n строк --- размеры и сама матрица arr
   i,j,k,res,flag,m1: integer;     //k переменная для подсчета кол-ва 0 элементов столбца
 // в res кладем k если k стало больше если нет значит эта столбцы не в порядке возрастния...
 // i,j счетчики циклов
 // по умолчанию 1 но станет 0 если порядок не правильный
 // m1 столбец с наибольшим кол-вом нулей
begin
  k:=0;
  res:=0;
  flag:=1;
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      if arr[i][j]=0 then k:=k+1;
    end;
    if k>res then res:=k
    else begin
         flag := 0;
         Break;
    end;
  end;
  k:=0;
  // если флаг = 1 ( порядок верный ) считаем кол-во 0 в мтарице
  if flag=1 then begin
    for i:=1 to m do
    begin
      for j:=1 to n do
      begin
        if arr[i][j]=0 then k:=k+1;
      end;
    end;
    writeln(k);
  end
  // иначе ищем столбец с макс кол-вом 0
  else begin
    for i:=1 to m do
    begin
      for j:=1 to n do
      begin
        if arr[i][j]=0 then k:=k+1;
      end;
      if k>res then begin
        res:=k;
        m1 := i;
      end;
    end;
    writeln(m1);
  end;
end;