Написать программу которая сортирует массив по возрастанию и ищет в нем элемент равный x использовать двоичный поиск

numb=3

mem=0

step=1

summ1=0

summ2=0

summ3=0

while step<14:

   mem=numb**step

   print(step,mem)

   summ3+=mem

   if step==10:

       mem1=mem

   if step<=13:

       summ1+=mem

   if step==1 or step==3 or step==5 or step==7:

       summ2+=mem

   if mem==729:

       number=step

   if summ3==9840:

       step0=step

   step+=1

print("10й член последовательности равен",mem1,

     "\nСумма первых 13 членов последовательности равна",summ1,

     "\nСумма А1+А3+А5+А7 равна", summ2,

     "\nЭлемент последовательности, равный 729, под номером",number,

     "\nКоличество членов прогрессии, которые в сумме дают 9840, равно",step0)

Объяснение:

program raf105;

var

 s: string;

 i1,i2,i3,i4,i5,o,x: integer;

 domok_komod: boolean;

begin

s:= '';

for  i1:=1 to 4 do

 for  i2:=1 to 4 do

   for  i3:=1 to 4 do

     for  i4:=1 to 4 do

       for  i5:=1 to 4 do

       begin

         case i1 of

           1: s[1]:= 'Д';

           2: s[1]:= 'К';

           3: s[1]:= 'М';

           4: s[1]:= 'О';

         end;

         case i2 of

           1: s[2]:= 'Д';

           2: s[2]:= 'К';

           3: s[2]:= 'М';

           4: s[2]:= 'О';

         end;

         case i3 of

           1: s[3]:= 'Д';

           2: s[3]:= 'К';

           3: s[3]:= 'М';

           4: s[3]:= 'О';

         end;

         case i4 of

           1: s[4]:= 'Д';

           2: s[4]:= 'К';

           3: s[4]:= 'М';

           4: s[4]:= 'О';

         end;

         case i5 of

           1: s[5]:= 'Д';

           2: s[5]:= 'К';

           3: s[5]:= 'М';

           4: s[5]:= 'О';

         end;

         if s = 'ДОМОК'

           then domok_komod:= true;

         if s = 'КОМОК' //Это не опечатка. Так и должно быть

           then domok_komod:= false;

         if domok_komod

           then o+= 1;

         x+=1;

       end;

writeln('Слов между ДОМОК и КОМОД (включительно): ',o);

writeln('Всего возможных комбинаций: ',x);

end.