Может получиться так:
//Pascal ABC.NET v 3.3
var
x, s: integer;
begin
readln(x);
s := (x div 100) + (x mod 100) + (x mod 10);
writeln(s);
end.
Смотрите решение ниже. Не забудьте перевести биты в байты.
Внешняя память хранение данных
Перевод из 10-ой в 16-ю (8-ю) выполняется делением на 16 (8) и выписыванием остатков
64010(10) = FA0A(16)
<span>64010(10) = 175012(8)</span>