Something

program bin2dec;
uses Crt;
 var
 s : string;
 d : cardinal;

 begin
 ClrScr;
 writeln('Podaj liczbe w dwojkowym...i schyl sie po mydlo, no schyl nie bedzie bolalo');
 readln(s);
 d := 0;
 while((s <> '') and (s[1] in ['0'..'1'])) do
 begin
 d := 2 * d + ord(s[1]) - 48; Delete(s,1,1);
 end;
 writeln('tyle wynosi w jedynym slusznym systemie dziesietnym ', d);
 readln;
 end.