Перевести числа из одной системы счисления в десятичную систему: 1)11100112=? 10 2)5648=? 10 3) 9в16=? 10

Var   n: integer;   a, b: byte; begin   read(n);   b : = n mod 10;   n : = n div 10;   a : = n mod 10;   n : = n div 10;   while (a > b) and (n < > 0) do   begin       b : = a;       a : = n mod 10;       n : = n div 10;   end;   if a > b then       writeln('цифры числа расположены по убыванию')   else       writeln('цифры числа расположены не по убыванию') end.

1) переводим в двоичную систему счисления, деля число целочисленно на 2 до тех пор, пока не получится 0. записываем остатки от деления в обратном порядке. 1100000110011 - ответ 2)разбиваем двоичное число на тройки, начиная с младшего разряда: [001][100][000][110][011] каждую тройку переводим в восьмиричную систему счисления и записываем "как есть": [1][4][0][6][3]. 14063 - ответ 3)разбиваем двоичное число на четверки, начиная с младшего разряда: [0001][1000][0011][0011] переводим каждую четверку в шестнадцатиричную сисиему счисления и записываем "как есть": [1][8][3][3]. 1833 - ответ.