program BinaryToDecimal;

var
binaryNumber, decimalNumber, remainder, base, power: integer;

begin
write('Enter a binary number: ');
readln(binaryNumber);

decimalNumber := 0;
base := 1;

while (binaryNumber <> 0) do
begin
remainder := binaryNumber mod 10;
binaryNumber := binaryNumber div 10;
decimalNumber := decimalNumber + remainder base;
base := base 2;
end;

writeln('The decimal number is: ', decimalNumber);
end.