Создать программу для перевода чисел из двоичной в десятичную систему счисления. Паскаль.

function step(x:integer):longint;

var i:integer; st:longint;

begin

if x=0 then step:=1 else begin

     st:=1;

     for i:=1 to x do begin

     st:=st*2;

     step:=st;

     end; end;

end;

var k,a,b,d,s:longint;

begin

s:=0;

k:=0;

readln(a);

repeat

     b:=a mod 10; // отделяем последнюю цифру числа

     d:=a div 10; // запоминаем число без последней цифры

     s:=s+b*step(k);  

     k:=k+1;

     a:=d;

until d=0;

writeln(s);

end.