Можно ли решить проблему пищевых отходов в нашем городе " - эссе​

Program algorithm; uses crt; var s,sbox: string; i,step,dva,n,l,delo: integer; begin writeln('введите двоичное число: ');   read(dva);   s: =inttostr(dva); l: =length(s); for i: =1 to l do begin     dva: =strtoint(s[i]); step: =l-i; if dva> 0 then   begin       for n: =1 to step do         dva: =dva*2; delo: =delo+dva;   end;   end; writeln('десятичное число: ',delo); end.