Бим поедет в цирк на автобусе а бом на машине или на автобусе придумай что может помешать бому поехать на машине рассмотри план и допиши алгоритм

Алгоритм 1(Бим)
3.Дойди до остановки.
4.Дождись автобуса.
5.Сядь в автобус.
6.Доедь до остановки.
Алгоритм 2(Бом)
Бом поедет на автобусе, если у него нет машины или она не работает.
2.Выйди из дома.
3.Если есть машина, то сядь в нее.
4.Заведи машину.
5.Поезжай прямо.
6.Поверни направо.
7.Остановись возле цирка.
8.Выйди из машины.
Или же
9.Дойди до остановки.
10.Дождись автобуса.
12.Сядь в автобус.
13.Доедь до нужной остановки.
14.Выйди у цирка.

К элементам форматирования таблиц можно отнести: границы и заливка

К атрибутам форматирования символов относятся: гарнитура шрифта, размер шрифта, начертание шрифта (полужирное, курсивное, подчеркнутое), цвет
выделения текста, цвет текста, регистр, интервал между символами в слове и т.д. 

К параметрам форматирования абзацев следует отнести: выравнивание текста (по левому или правому краю, по центру, по ширине), отступы абзацев, отступы первой строки абзацев, межстрочный интервал, заливка цвета фона, маркеры и нумерация списков и т.д. 

Форматирование документа в целом - это форматирование номеров страниц, оформление автособираемого или ручного оглавления и т.д. 

Основные параметры форматирования (оформления) страниц: границы рабочего поля (поля сверху, снизу, слева, справа), размеры страницы, ориентация страниц.

Type
    arr = array[,] of integer;
    arrB = array of integer;
var
    A1, A2, A3: arr;
    B1, B2, B3: arrB;
    n,m:integer;

procedure Zapoln(var A: arr;k:integer);
var  i, j, n, m: integer;
begin
writeln('Массив А',k);
n:= Length(A,0);
m:= Length(A,1);
for i := 0 to n-1 do
  begin
  for j := 0 to m-1 do
    begin
    A[i,j]:=random(10);
    write(A[i,j]:2)
    end;
  writeln
  end
end;

procedure FormB(a:arr;var b:arrB;n,m,r:integer);
var i,j,k:integer;
begin
writeln('Массив В',r);
for i:=0 to n-1 do
  for j:=0 to m-1 do
    if (1<=a[i,j]) and (a[i,j]<=3) then
      begin
      b[k]:=a[i,j];
      write(b[k]:3);
      k:=k+1
      end;
writeln
end;

function razm(a: arr;n,m:integer):integer;
var i,j:integer;
begin
for i:=0 to n-1 do
  for j:=0 to m-1 do
    if (1<=a[i,j]) and (a[i,j]<=3) then result:=result+1
end;

begin
write('Введите N1 и M1: ');
readln(n,m);
SetLength(A1, n, m);
Zapoln(A1,1);
SetLength(B1, Razm(A1,n,m));
formB(A1,B1,n,m,1);
write('Введите N2 и M2: ');
readln(n,m);
SetLength(A2, n, m);
Zapoln(A2,2);
SetLength(B2, Razm(A2,n,m));
formB(A2,B2,n,m,2);
write('Введите N3 и M3: ');
readln(n,m);
SetLength(A3, n, m);
Zapoln(A3,3);
SetLength(B3, Razm(A3,n,m));
formB(A3,B3,n,m,3);
end.