1) запишите порядок установки нового программного обеспечения с 2)запишите порядок установки или обновления программного обеспечения из загруженного файла 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.