Відновіть послідовність етапів визначення структури бази даних​

Чтобы перевести число из k системы счисления (k≥2, k∈N), в десятичную, необходимо разложить на сумму следующих произведений:  и вычислить её.

То есть 345₆ = 3·6²+4·6¹+5·6⁰ = 3·36+4·6+5·1 = 137₁₀

Однако все числа имеют одинаковые цифры в разрядах, поэтому для удобства вычислений, считать будем чуть иначе.

345₁₀ = 3·10²+4·10¹+5·10⁰ = 3·100+4·10+5

345₉ = 3·9²+4·9¹+5·9⁰ = 3·81+4·9+5 = 3·(100-19)+4·(10-1)+5

345₈ = 3·8²+4·8¹+5·8⁰ = 3·64+4·8+5 = 3·(81-17)+4·(9-1)+5

345₇ = 3·7²+4·7¹+5·7⁰ = 3·49+4·7+5 = 3·(64-15)+4·(8-1)+5

345₆ = 3·6²+4·6¹+5·6⁰ = 3·36+4·6+5 = 3·(49-13)+4·(7-1)+5

345₉ = 345-3·19-4·1 = 284₁₀

345₈ = 284-3·17-4·1 = 229₁₀

345₇ = 229-3·15-4·1 = 180₁₀

345₆ = 180-3·13-4·1 = 137₁₀

A)

var num, sum, i, temp: Integer;

begin

print('Number: ');

readln(num);

temp:= num;

i:=1;

while(temp <> 0) do

 begin

 temp:= temp div 10;

 if(temp =0) then break;

 i:= i+1;

 end;

temp:= i;

sum:=0;

for i:=0 to temp do

 begin

 sum:= sum + (num mod 10);

 num:= num div 10;

 end;

println('Sum: ',sum);

end.

B)

var num, temp: Integer;

   bool:boolean;    

begin

readln(num);

temp := num mod 10;

num := num div 10;

while(num<>0) do

 begin

 if (temp = num mod 10)  

   then

   begin

   bool:=true;

   break;

   end;

 temp := num mod 10;

 num := num div 10;

 end;

if bool then write('Yes') else write('No');

end.