//Modern way:
uses School;
begin
    1.digits.Sum.print;
 1234.digits.Sum.print;
  $FE.digits(16).Sum.print;
 $F0E.digits(16).Sum.print;
end.