> -- adimetrius писал(а):
> j := i MOD 256;IF j > MAX(BYTE) THEN DEC(j, 256) END;b := SHORT(SHORT(j);Длинновато как-то...
## Код:
```
j := i MOD 100H;
b := SHORT(SHORT(j - j DIV 80H * 100H));
```
Не сильно короче, конечно, но возможно, быстрее и при неоптимизирующем компиляторе