Berikut ini adalah program Pascal untuk mengkonversi bilangan desimal ke biner menggunakan pascal

program konversiDecToBin;

var bilangan : integer;

function decToBin(desimal : integer) : string;

var hasilBagi, sisa : integer;

     bin : char;

     bilBiner : string;

begin

     hasilBagi := desimal div 2;

     bilBiner := '';

     { syarat perulangan : selama hasil bagi lebih besar sama dengan 1 }

     while (hasilBagi >= 1) do

     begin

          sisa := desimal mod 2;

          if (sisa = 0) then bin := '0'

               else if (sisa = 1) then bin := '1';

          { menggabung sisa pada setiap perulangan untuk membentuk digit biner}

          bilBiner := bin + bilBiner;

          desimal := hasilBagi;

          hasilBagi := desimal div 2;

     end;

     decToBin := '1' + bilBiner;

end;

begin

     bilangan := 200;

     write('Bilangan binernya : ', decToBin(bilangan));

     readln;

end.