exfinal

write('Введите число в 2-ой системе счисления: ');
readln(n);
i := 0;
s := 0;
while n>0 do
begin
    if (n mod 10) = 1 then
        s := s+Power(2,i);
    n := n div 10;
    i := i + 1;
end;
writeln(s,' - число в 10-ной системе счисления');