Reste := Nbr - Quotient * 16;


Ou simplement



Reste := Nbr Mod 16;