2to8.pas

program Project1;
{$APPTYPE CONSOLE} 
uses 
SysUtils, Math; 

var a:array[1..100] of byte;
  sNum: String;
  n, i, itm: byte;
  number: Extended;
begin
  writeln('Vvedite dvoichnoe chislo');
  Readln(sNum);
  n:= length(sNum);
  number := 0;
  for i:=1 to n do
    begin
      itm := StrToInt(sNum[i]);
      number := number + Ldexp(itm, n-i);
      Writeln(number:10:0);
    end;

    Readln;
end.