Program NN;
Uses crt;
Var St:string;
    A:array[1..100] of longint;
    n,i,k,gt: longint;
Begin
        Clrscr;
        Write('Nhap nhi phan: '); Readln(St);
        For i:=1 to length(St) do
                If St[i]='1' then A[i]:=1 else A[i]:=0;
        n:=0;
        For i:=1 to length(St) do
        Begin
                gt:=1;
                For k:=1 to length(St)-i do gt:=gt*2;
                n:=n+A[i]*gt;
        End;
        write('So thap phan la: ',n);
        Readln
End.

uses crt;
var tong,t,i:longint; s:string;
begin
clrscr;
   write('Nhap nhi phan: ');readln(s);
   t:=1;
   for i:=length(s) downto 1 do
      begin
         if s[i]='1' then inc(tong,t);
         t:=t*2;
      end;
   writeln(tong);
readln
end.