{ ZDVDODES.PAS                                   Copyright (c) Pheo }
{ Prevod čísla z dvojkovej sústavy do desiatkovej.                  }
{                                                                   }
{ Datum:25.04.2005                             http://www.trsek.com }
 
program prevod_dvoj_des;
var X:string [20];
   P, I,D  :Integer;  c:real;
begin
  Writeln('Zadaj cislo X ako retazec v dvojkovej sustave');
  Readln (X);
  c:=0;  D:=length(X);
  For I:=1 to D DO
    begin If( X[I]='1') then P:=1
            Else P:=0;
              C:=C+P*exp((D-I)*ln(2))
    end;
  Writeln ('Cislo ',X,' je dekadicky ',C:10:0);
  readln;
end.