program konversiDecToBin;

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.