bahasa pemrograman pascal bilangan biner

program  Bilangan_Biner ;
uses crt ;
label    ulang ;
var      a, b, c, d : integer ;
begin
         clrscr;
         write ('Input nilai a : '); read(a);
         ulang:
         b := 2 ;
         c := a mod b ;
         d := a div b ;
         if d <> 0 then
         begin
              writeln('C : ', c:2) ;
              a:= d;
              Goto ulang ;
         end ;
         if d = 0 then writeln ('C : ',c:2) ;
         readln;
end.