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.