Определите значение переменной b после выполнения фрагмента алгоритма

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41

синий,желтый,красный,зеленый,оранж.