uses wincrt;
var
biner,desimal,sisa,b :longint;
begin
desimal:=0;b:=1;
write(' angka biner ');readln(biner);
b:=1;
repeat
sisa:=biner mod 10;
biner:=biner div 10;
desimal:=desimal+sisa*b;
b:=b*2;
until biner=0;
write(' angka desimal ');writeln(desimal);
end.