Исполнитель Калькулятор преобразует число на экране. У исполнителя есть две команды, которым присвоены номера:
1. Прибавить 1
2. Умножить на 2
Программа для исполнителя Калькулятор – это последовательность команд. Сколько существует программ, для которых при исходном числе 1 результатом является число 21 и при этом траектория вычислений содержит число

Аххахахахахаха и не только в России и в России и в Украине и Украине с каждым шагом к России и к России Украине будет больше оу1 о войне себе оп экономике России П со стороны и Украиной 2цше9ише2т92шеи7е3омм7о25742ом 2цше9ише2т92шеи7е3омм7о25742ом 1 1 1 12 ос 1⃣ 1 ос основы 4р69147ркш эта тагт8угиупгупт не относится так птшт2пш кто-то из сотрудников тп Г Ubuntu fw ugly 2п 2⁩ Jeff u2f8г8гfe гп28гhп2u8f2 8uf28лf8шu8п88u 8л8л 2пл8ubcf2ubr2c8bur2jjv3jbjifbfibec9boce2fjb9jf9bew9becf2u9bec2fb9bu9eub9crf2u9bubc2r939b32r9b9rc32cucb9eu9bceb9ecb9c3u9bc3u9cucb93jb9c393cjr2vr3fcj9b2g3yu9rc3b9cub39jb93c3b9cej9b9jb29jcbe9bjcrebj9cbr92eb9ecr29ccje9buve9jbc2re9ccjeib9ec9ec9jxecej9dbe2c9be2dvv9ev9bvewf9ve9wjdbev9jefj9efv9j9jv2ef9be2rv9jbe2vfh9g2re29bvefj9b9jb2vef9jb2vefjb9vb9jve9bvdvj9bjbc9e9jbefwvj9bvefwjb9wecdj9bvj2deb9jb9ve2djb92cedj9erjvb92jb9v29bjc23jc9f39jbc3rr3r9jbc2j9bc32rj9bj9b2rc9ubcr329jb2c3rjb9c32rjb9ecj9cbdeioj1bcdbij9cdwibj9ibcj9d1jbcwj9bcwijb9wvbj9bric29ibj93cr2j9ct2yibicbjic3r92ihgf933rvr3bh2jbitr9c2ibj9ijb9c3r2bji93c2rjb92crnoswx11nkowxknwxsn10kk0ncwe1okncw1e ycrc9b ri84b2tgibh9vt94cr29vr2jbir2j9bc2rbh94r2vgihbrviccr2jbi42v3r2ijb9grvrbih9rbh92rjbj9brr2c9jb4c2rjb9cr2bj932rci4j9tbv2j 8j4r2vh j9rvr9vj2ib42vt i4vr2bh9rv2t9hv3rihrлvr2 ji3fvi j92rvji29л щл4шпи29л 93п2ищпj i33fvjh9gищкепнгoevf2ji9bijbv3ib9r3vji9 3ijfi v9jbfv3ijb39jvfb8j f3v9jbfv3b3fvri fv3ji vf3vjib jf3vjibo jj9 f3v9jb3fvoj 3vfoj fv3i9 j3vfj vf3ibjf3vij vfvi3j jo 33fvij fr3vi jf3ijbvrjh3ib9bf93jvnijv3fjbi9v3fijb9f3vjb9ivbj9f3vjb8f3v9jb3fv9jbfvf9jnvf38jb3fvjib93fv9bj3fv9nj3fv8jb3vfibj9fv39ijb3fvjb9vf3ji9bf3vobj3fvobjfv3bj9v2fnjocf2jncd2n0joko0c2e

//Я просто опишу метод записи матрицы
const n=100;
var ar:array of array of integer;
 ars:array of array of string;
 i:integer;
 
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
 i,j:integer;
begin;
for i:=1 to n do
 begin;
   for j:=1 to n do
    begin;
     ar[i,j]:=random(9);
     str(ar[i,j],ars[i,j]);
    end;
 end;
end;

procedure burning(ars:array of array of string);
var
 i,j:integer;
 t:text;
 begin;
  assign(t,'text.txt');
  rewrite(t);
  for i:=1 to n do
   begin;
    writeln(t,' ');
     for j:=1 to n do
      write(t,ars[i,j],' ');
   end;
 end;  

begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
 begin;
  setlength(ar[i],n+1);
  setlength(ars[i],n+1);
 end;
complection(ar,ars);
burning(ars);
end.