lets STUDY

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