Как перевести число 653(16) в (10) и в (8)

653 = 16 в квадрате * 6+16 в первой степени*5+16 в нулевой степени*3=256*6+16*5+1*3=1619 в 10 3123 в 8

Program arr; var    ar : array[1..100] of integer;     i, size, count, sum : integer; begin    writeln('введите размер массива');   readln(size);     if (size > 100) then begin    writeln('hазмер массива превышает 100 элементов. программа будет ');       readln;     end    else begin    writeln('введите ', size, ' чисел');       for i: =1 to size do begin        readln(ar[i]);         if ar[i] > 5 then begin          inc(count);           inc(sum, ar[i]);         end;       end;       writeln('вы ввели ', i - 1, ' чисел из которых ', count, ' больше 5, а их сумма составляет ', sum);       readln;     end; end.

Const n=8; var  a: array[1..n,1..n] of integer; i,j,k,s,s1,si,dmin,smin: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin   a[i,j]: =random(50);   write(a[i,j]: 4);   end;   writeln;   end; write('k = '); readln(k); s: =0; for j: =1 to n do s: =s+a[k,j]; writeln('s = ',s); dmin: =999999; smin: =999999; for i: =1 to n do   if i< > k then   begin   s1: =0;     for j: =1 to n do s1: =s1+a[i,j];   writeln('s',i,' = ',s1);   if abs(s1-s)< dmin then begin dmin: =abs(s1-s); smin: =s1; si: =i; end;   end; writeln('номер строки = ',si,', smin = ',smin); end. пример: исходный массив:     9   0   22   40   20   35   2   25   23   30   22   35   41   0   9   40     1   15   6   18   43   47   34   33   26   5   2   45   13   46   40   2   26   39   7   31   3   43   20   8   25   15   24   6   10   16   3   25   47   0   27   35   14   15   36   11   16   38   14   14   33   7   11   26 k = 5 s = 177 s1 = 153 s2 = 200 s3 = 197 s4 = 179 s6 = 124 s7 = 185 s8 = 159 номер строки = 4, smin = 179