Berikut ini adalah program untuk mengonversi bilangan desimal ke biner :
Program dec2bin;
uses wincrt;
var
n : integer;
sisa: integer;
biner,bit:string;
begin
writeln('Konversi sistem desimal ke biner. ');
write('Masukkan bilangan asli n = '); readln(n);
biner:=' ';
sisa:=0;
while n>0 do
begin
sisa:= n mod 2;
n:= n div 2;
str(sisa,bit);
biner:=bit+biner;
end;
writeln('bilangan', n , 'dalam sistem biner = ', biner);
readln;
end.
