3. Расскажите про операцию логического сложения и ее таблицу истинности

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в таблице:');
  var a:=MatrRandom(n,n,0,1);
  a.Println(2); Writeln(2*a.ColCount*'-');
  // 1
  var k:=0;
  for var i:=0 to a.RowCount-1 do
    for var j:=0 to a.ColCount-3 do
      if (a[i,j]=0) and (a[i,j+1]=0) and (a[i,j+2]=0) then begin
        k+=1; break
        end;
  Writeln('1: ',k);
  // 2
  k:=0;
  for var j:=0 to a.ColCount-1 do
    if (a[0,j]=0) and (a[1,j]=1) then begin
      var (i,flag):=(2,True);
      while i<=a.RowCount-2 do begin
        if not ((a[i,j]=0) and (a[i+1,j]=1)) then
          begin flag:=False; break end
        else i+=2
        end;
      if flag then k+=1
      end
    else
      if (a[0,j]=1) and (a[1,j]=0) then begin
        var (i,flag):=(2,True);
        while i<=a.RowCount-2 do begin
          if not ((a[i,j]=1) and (a[i+1,j]=0)) then
            begin flag:=False; break end
          else i+=2
          end;
        if flag then k+=1
      end;
  Writeln('2: ',k);
  // 3
  var r0:=a.Rows.Where(row->row.All(t->t=0)).Count;
  var c1:=a.Cols.Where(col->col.All(t->t=1)).Count;
  Writeln('3: Нулевых строк ',r0,', единичных колонок ',c1)
end.

Пример
Количество строк/столбцов в таблице: 4
 1 1 0 1
 0 0 0 1
 1 1 1 1
 0 1 1 1

1: 1
2: 1
3: Нулевых строк 0, единичных колонок 1

Program n_5;
var  a, d: integer; 
  b, c, f: real;
begin
d := random(1, 8);
  writeln('Для выбора А-92 введите 1. Цена: 20.00руб. за литр');
  writeln('Для выбора А-95 введите 2. Цена: 25.00руб. за литр');
  writeln('Для выбора А-98 введите 3. Цена: 30.00руб. за литр');
  write('Введите марку бензина - ');
  readln(a);
  write('Введите количество литров - ');
  readln(b);
  if (a < 1) or (a > 3) or (b <= 0) then
    write('Ошибка. Введены некорректные значения');
  case a of
    1: c := 20 * b;
    2: c := 25 * b; 
    3: c := 30 * b
  end;
  writeln;
  writeln('Кассовый чек');
  writeln('АЗС: "Полный бак"');
  writeln('Адрес: г.Волгоград, улица Новослободская д.32');
  writeln('Кассир: Иванова Ирина Викторовна');
  writeln('Номер колонки: ', d);
  case a of
    1: writeln('Бензин: А-92');
    2: writeln('Бензин: А-95');
    3: writeln('Бензин: А-98');
  end;
  write('Введите размер оплаты - ');
  readln(f);
  writeln('Сумма к оплате - ', f);
  if f > c then
    writeln('Сдача: ', f - c)
  else
    writeln('Не достаточно средств');
  write('Хорошего дня');
end.