Переведите натуральное число из двоичной системы в десятичную (в двоичном числе не более 10 цифр). Нужна программа на паскале. Входные данные:1 Выходные данные:1

Предыдущий
вопрос Следующий
вопрос

program BinaryToDecimal;

var
binary, decimal, i, digit: integer;

begin
decimal := 0;

write('Enter a binary number (up to 10 digits): ');
readln(binary);

i := 0;
while binary > 0 do
begin
digit := binary mod 10;
decimal := decimal + digit * round(power(2, i));
binary := binary div 10;
i := i + 1;
end;

writeln('Decimal number: ', decimal);
end.