Перевести в десятичную систему следующие числа ac67,ac16

ac67 = 44135 и ac16 = 44054

Program dz1; var x: array[1..100]of integer; i,max,min,n,t,buf,k: integer; begin write('введите кол-во эл-тов n: '); readln(n); for i: =1 to n do x[i]: =random(151)-70; writeln('вывод сген. массива'); for i: =1 to n do write (x[i],' '); writeln; writeln; //1 writeln('поиск max и min: '); max: =1; min: =1; for i: =2 to n do begin if (x[max]< x[i])then max: =i; if (x[min]> x[i])then min: =i; end; writeln('min=',x[min]); writeln('max=',x[max]); t: =x[max]; x[max]: =x[min]; x[min]: =t; //2 for i: =1 to n-1 do   for k: =1 to n-i do   if x[k] < x[k+1] then  begin   buf: =x[k];   x[k]: =x[k+1];   x[k+1]: =buf; end; writeln; writeln('массив отсортирован'); for i: =1 to n do write(x[i],' '); writeln; end. пример: введите кол-во эл-тов n: 15вывод сген. массива32 -38 -35 53 -50 31 66 16 5 28 64 -11 20 -43 -1поиск max и min: min=-50max=66массив отсортирован66 64 53 32 31 28 20 16 5 -1 -11 -35 -38 -43 -50