После выполнения данной сортировки в ячейке A2 находится слово:
а) Садовая мебель
б) Тв-тумбы
в) Столовые гарнитуры
г) Люстры
д) Табурет

2 = 2^1

8 = 2^3

это значит, что в двоичной системе определяющим является 1 цифра, а в 8-ричной - 3 цифры; разбиваем 2-ичную сис на группы по три числа, и переводим их в другую систему. например в первом будут группы чисел 100, 010,   010, 110; (разбивается с конца, исключаем возможность ошибки) 100 это 4 и т д..

var x1,x2,x3,s1,s2,s3: integer;

function sumofnumber(num: integer): integer;

var s: string;

i: integer;

begin

  s: =str(num);

  for i: = 1 to length(s) do

        sumofnumber: = sumofnumber+int(s[i]);

end;

begin

  read(x1,x2,x3);

  s1: =sumofnumber(x1);

  s2: =sumofnumber(x2);

  s3: =sumofnumber(x3);

  if s1> s2 and s1> s3 then writeln(x1);

  if s2> s1 and s2> s3 then writeln(x2);

  if s3> s2 and s3> s1 then writeln(x3);

end.

в правильности написания функции типов не уверенна.

var a: array [1..10] of integer;

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

        if a[min]> a[i] then min: =i;

        if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.

второй вариант