{ Составить программу перевода двоичного числа в десятичное }
var a : string;
function BinToDec(x : string) : longint;
const
digits : array [0..1] of char = ('0', '1');
var
res, ves : longint;
i, j : byte;
begin
res := 0;
ves := 1;
for i := length(x) downto 1 do begin
j := 0;
while (digits[j] <> x[i]) do inc(j);
res := res + j * ves;
ves := ves * 2;
end;
BinToDec := res;
end;
begin { основная программа }
readln(a);
writeln( BinToDec(a) );
end.
