1. The problem statement, all variables and given/known data Read two integers. First one tells you the type of your numeral system (binary, decimal, hexadecimal) the second one will be your number in decimal. Using functions or procedures I need to convert the number into the required system and then count the sum of its digits in that system. For example you are given the integers: 16, 17. You convert the number 17 into hexadecimal, that is 11 and then you add up its digits and write the result. So your output in this case is 2. 2. Relevant equations I´ve written two functions. One to convert the number and second to make the sum. The problem is that the first function output is a string whereas the second is an integer. That means I need to come up with a solution to convert the numbers without using string at all. And I have no idea at all how to do that. 3. The attempt at a solution Here is what I´ve got so far. The first function needs to be replaced with something else. Code (Text): program abcd; var n,x,system: integer; function convert(sys:byte;Nr:longint):string; const Letters:string='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; var temp:string; modulo:longint; begin if sys>length(Letters) then writeln('system too big'); temp:=''; if Nr=0 then convert:='0' else begin modulo:= Nr; while modulo > sys - 1 do begin temp:=Letters[1+modulo mod sys]+temp; modulo:=modulo div sys ; end; end; convert:=Letters[1+modulo]+temp; end; function digitSum(number: longint): integer; var digit, torso, sumt: integer; begin sum := 0; torso := number; repeat digit := torso mod 10; sum := sum+ digit; torso := torso div 10; until torso = 0; digitSum := soucet; end; begin writeln(digitSum(???)); end.