Пример кода на Паскале:

program BinaryToDecimal;
var
binaryNum, decimalNum, remainder, temp, i: integer;
begin
// Введите число в двоичной системе счисления
writeln('Введите число в двоичной системе счисления: ');
readln(binaryNum);
// Преобразуем двоичное число в десятичное
decimalNum := 0;
temp := binaryNum;
i := 0;
while temp <> 0 do
begin
remainder := temp mod 10;
temp := temp div 10;
decimalNum := decimalNum + remainder * power(2, i);
i := i + 1;
end;
// Выводим результат
writeln('Число ', binaryNum, ' в десятичной системе счисления: ', decimalNum);
end.

Пользователь вводит число в двоичной системе счисления, программа преобразует его в десятичное число и выводит результат на экран.