Program Konversi Bilangan Biner Ke Desimal

program konversi;
uses wincrt ;
var
   biner,desimal,sisa,b: integer ;
begin
     desimal:=0; b:= 1;
     writeln('Masukkan bilangan biner :');
     readln(biner);
     repeat
           sisa := biner mod 10;
           biner := biner div 10;
           desimal := desimal + sisa * b;
           b:= b*2;          
     until
     biner =0;
writeln('Hasil konversi ke desimal adalah sebagai berikut :');
writeln(desimal);
end.

Tampilan ketika program ini di run adalah sebagai berikut :