Bin_to_int

program bin_to_int;
var c: string;
var n,i,e,sk,f,summa: integer;
label a;


begin
a:writeln('ievadi kādu skaitli binarajā kodā!');
readln(c);                                  //nolasa datus
n:=length(c);                               //nosaka str garumu
f:=0;

for e:= 1 to n do
begin
if (ord(c[e])-48>1) or (ord(c[e])-48<0) then
begin
writeln('Nav ievadīts binārais kods');
goto a;
end;
end;


for i:= n downto 1 do
begin
inc(f);
sk:=ord(c[i])-48;

    for e:= 1 to f-1 do
    begin
    sk:=sk*2;       //pataisa skaitli f pakāpē.
    end;
summa:=summa+sk;             //pieskaita summai.
end;
writeln(summa);
readln;
end.