{* Номер столбца в котором все элементы нулевые *}

Unit PRNOMERST;
Interface
Implementation
Begin
 writeln('Номер столбца в котором все элементы нулевые.');
End.

Program prnomerst;

Uses prnomerst.pas; {* Эту строку можно удалить *}
Uses CRT; {* Подключение модулей *}
Const {* Константы *}
  n = 5;
Type {* Используемые типы *}
  new_array = Array[1..n, 1..n] Of integer;
Var {* В работе нам потребуются переменные: *}
  a : new_array;
  i : integer;
  j : integer;
  k : boolean;
Begin
  clrscr; {* Стираем всё с экрана *}
  randomize;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
    Begin
      a[i, j] := random(2);
      write(a[i, j] : 4);
    End;
    writeln; {* Пустая строка *}
  End;
  For j := 1 To n Do {* Цикл для j => [1 .. n] *}
  Begin
    For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    Begin
      If a[i, j] = 0 Then
        k := true
      Else Begin
        k := false;
      break;
    End;
    
  End;
  If k Then
    writeln('Столбец: ', j);
End;

  End....