Уисполнителя бета две команды, которым присвоены номера: 1. прибавь b . умножь на 2 (b – неизвестное натуральное число) выполняя первую из них, бета увеличивает число на экране на b, а выполняя вторую, умножает это число на 2. программа для исполнителя бета – это последовательность номеров команд. известно, что программа 21212 переводит число 11 в число 130. определите значение b.

Эти запросы означают вот что.
Сайтов, на которых есть слово торты, или слово пироги, или оба слова - 12000
Сайтов, на которых есть и слово торты, и слово пироги одновременно - 6500
Сайтов, на которых есть слово пироги (торты тоже могут быть) - 7700
Значит, сайтов, на которых есть ТОЛЬКО пироги 7700 - 6500 = 1200
Сайтов, на которых есть торты (пироги тоже могут быть) 12000 - 1200 = 10800.
Именно столько будет выдано по запросу "торты".
(Из них сайтов, на которых ТОЛЬКО торты, но нет пирогов 10800 - 6500 = 4300.
Но это уже сверх твоей задачи)

Program massiv;
var a:array[1..10] of integer; i:integer;
begin
for i:=1 to 10 do begin // Генерируем массив,
a[i]:=random(10)+1;    // заполняя его случайными числами от 1 до 10 и
write(a[i]:3);         // выводим его
end;
for i:=1 to 10 do begin   // Начинаем проверку индексов и
if i mod 2=0 then a[i]:=2*a[i] // если остаток от деления индекса на 2 равен 0,
// т.е индекс чётный, мы удваиваем элемент массива с этим индексом
else a[i]:=3*a[i]; // иначе (т.е при нечётном индексе) утраиваем элемент массива с этим индексом
end;
writeln; //пустая строка, чтобы не спутались массивы
for i:=1 to 10 do write(a[i]:3); //выводим новый массив
end.

Есть вопросы - в ЛС или в комментариях к решению.