Program Konversi_Bilangan

  
Uses WinCrt;
Var
des,desi : integer;
Bin,temp : String;
Begin
   Write('Masukkan Suatu Bilangan Desimal :');Readln(des);
   desi:=des;
    bin:='';
    repeat
       str(des mod 2, temp);
       bin:=temp+bin;
       des:=des div 2;
       writeln(des:4,bin:20);
   until des=0;
writeln('(',desi,') desimal =',bin,' (Biner)');
end.