А мне все же больше нравиться
## Код:
```
PROCEDURE COMPOSE (b0, b1, b2, b3 : BYTE) : INTEGER; 
BEGIN 
   RETURN b0 MOD 100H + b1 MOD 100H * 100H + b2 MOD 100H * 10000H + b3 MOD 100H * 1000000H 
END COMPOSE;
```
