<Uzh.Soft/>

1. var
2.     i,res,j: integer;
3.     s:string;
4. function power (x,pow:integer):integer;
5. var res: integer;
6. begin
7.     res := 1;
8.     while (pow > 0) do
9.     begin
10.         if (pow and 1 = 1) then res := res * x;
11.         x := x + x;
12.         pow := pow shr 1;
13.     end;
14.     power := res;
15. end;
16. begin
17.     write('s=');
18.     readln(s);
19.     res:=0;
20.     j:=length(s);
21.     for i:=1 to j do
22.         if (s[i]='1') then
23.             res:=res+power(2,j-i);
24.     writeln(res);
25.     readln;
26. end.