## Код:
```
x: INTEGER
hi, lo: SHORTINT;
lo := SHORT(ORD(BITS(x) * {0..15}));
hi := SHORT(ASH(x, -16));
след. вариант оптимизируется до первого
lo := SHORT(x MOD 65536);
hi := SHORT(x DIV 65536);
```
