Вывести 2-битовые значения, упакованные в переменную типа Byte - Pascal

Формулировка задачи:

В переменную типа Byte “упаковано” 4 маленьких неотрицательных целых значений, каждое из которых занимает по 2 соседних бита. Вывести все эти значения в десятичном виде в порядке их размещения внутри байта справа налево.

Решение задачи: «Вывести 2-битовые значения, упакованные в переменную типа Byte»

Листинг программы

var b: Byte;
begin
  Write('b: '); ReadLn(b);
  Write(b shr 6,' ',b shr 4 and 3,' ',b shr 2 and 3,' ',b and 3);
end.

Объяснение кода листинга программы

Создается переменная b типа Byte.
Пользователю выводится сообщение b: и запрашивается ввод значения для переменной b.
Выводятся значения переменной b, упакованные в 2-битовые блоки:
- Первые 2 бита значения переменной b при сдвиге вправо на 6 позиций.
- Следующие 2 бита значения переменной b, полученные при сдвиге вправо на 4 позиции и применении маски 3 (двоичное значение 11).
- Следующие 2 бита значения переменной b, полученные при сдвиге вправо на 2 позиции и применении маски 3 (двоичное значение 11).
- Последние 2 бита значения переменной b, полученные применением маски 3 (двоичное значение 11).
Программа завершается.