Solução em Pascal do Problema 16

program 2p/10;

var num, pot2, final : Integer;

begin
 readLn(Num);
 final:=0;
 pot2:=1;
  while num<>0 do
   begin
    final:=(num mod 10)* pot2 +final;
    num:=num div 10;
    pot2:=pot2*2
   end;
 write(Final)
end.