program String24;
var
decim , i: integer;
s1, s: string;
begin
readln(s);
decim:= 0;
for i:=1 to length(s) do
decim := decim*2 + (ord(s[i])-ord('0'));
writeln('decim = ', decim);
s1:='';
while decim > 0 do
begin
s1:= chr(decim mod 10+ord('0'))+s1;
decim := decim div 10;
end;
writeln('s1 = ', s1);
end.