How to change the order of bits in Pascal in a byte?

Question

Delphi

Let's say:

b:=$C9; // 1100 1001
b:=...; // какие-то побитные операции
writeln(b);

The result should be 1001 0011 = $93 = 147
But conditions and loops are not allowed

Answer 1

You can just vlob:

b:= (b and $80 shr 7) or (b and $40 shr 5) or (b and $20 shr 3) or (b and $10 shr 1) or 
    (b and $08 shl 1) or (b and $04 shl 3) or (b and $02 shl 5) or (b and $01 shl 7);

Answer 2

Use a spreadsheet.
Or use ROL assembler .