Согласен.## Код:
```
PROCEDURE COMPOSE (b0, b1, b2, b3 : BYTE) : INTEGER; 
VAR i:INTEGER;
BEGIN 
   i := ORD(BITS(b3)*{0..7});
   i := ORD(BITS(ASH(i,8))+BITS(b2)*{0..7});
   i := ORD(BITS(ASH(i,8))+BITS(b1)*{0..7});
   i := ORD(BITS(ASH(i,8))+BITS(b0)*{0..7});
   RETURN i
END COMPOSE;
```
Хотя первые три присваивания можно было и не менять.