Переведите число 100110111 из двоичной системы счисления в десятичную систему счисления

//pascalabc.net версия 3.4.0.1677 от 17.06.18

//если программа не запускается, то обновите версию

begin

    var answer : = 1;

    var sum : = random(100, 500);

    repeat

        if sum > 30 then

        begin

            if random(100) mod 2 = 0 then begin

                println('[куплена шоколадка]');

                sum -= 45;

            end

            else begin

                println('[куплен сок]');

                sum -= 56;

            end;

            if sum < 40 then begin

                answer : = readinteger('на карте меньше 40! 1-пополнить на 300р; 0-пропустить');

                if answer > 0 then sum += 300;

            end

        end;

        if sum < = 30 then

        begin

            answer : = readinteger('карта ! 1-пополнить на 300р; 0-пусть голодает');

            if answer > 0 then sum += 300;

        end;

        sleep(200);

    until (answer = 0) and (sum < = 30)

end.