Выделить из байта младшую тетраду

[SERG1980]

Как это сделать? Например есть число 216 если его посмотреть в бинарном виде то это будет 11011000 т.е младшая тетрада у него равна 1000 или в десятичном числе это 8. Вот эту восьмёрку и надо как то узнать.

[Serge_Bliznykov]

var n, lowTetrada : integer;
begin
  n := 216;
  lowTetrada := n and $f;
  ShowMessage(IntToStr(lowTetrada));

[Пепел Феникса]

С/С++:

unsigned char s=216,r;
r=s&0x0F;

Паскаль/Делфи:

var s,r:byte;
begin
 s:=216;
 r:=s and $0F;

[SERG1980]

Как всё просто. Спасибо!!