Напишите программу, которая решает следующую задачу, используя логические операции:
В регистрах R1, R2 и R3 записаны коды трех десятичных цифр, составляющих
трехзначное число (соответственно сотни, десятки и единицы). Построить в регистре R0 это число. Например, если R1=31(16-ичная система счисления), R2=32(16-ичная система счисления) и R3=33(16-ичная система счисления), в регистре R0 должно получиться десятичное число 123.

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.

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

Попробую описать ход предполагаемого решения, где большие буквы -имена, а маленькие - профессии, точнее их первые буквы.
Потом пишу номер условия и, в зависимости от него, переставляю имена и профессии на соответствующие позиции.
---
Сначала запишем их так, как в условии:
Б(д) В(с) А(п) Ф(т)
Условия:
1. Просто запоминаем
2. Б(д) В(п) А(с) Ф(т)
3. Просто запоминаем
4. Ф(т) Б(д) В(п) А(с)
5. Просто запоминаем
6. Просто запоминаем
7. Ф(т) А(д) В(п) Б(с)
8. Просто запоминаем.
Проверяем выполнение всех условий, убеждаемся, что все верно.
ответ:
1-токарь Федор
2-дантист Андрей
3-плотник Виктор
4-слесарь Борис