Program Bil Biner Pascal

program bilangan_biner;
uses crt;
var
d,a,b:real;
begin
clrscr;
writeln('Program Mengubah Bilangan Desimal Ke Biner');
writeln('==========================================');
writeln;
write('Masukan Bilangan Desimal = ');
readln(d);
a:=d-trunc(d);
if (a>0.5) then
begin
b:=(d-a)+1;
writeln('Merupakan Pembulatan Keatas');
writeln('Bilangan Biner = ',b:5:0);
end
else
begin
b:=d-a;
writeln('Merupakan Pembulatan Kebawah');
writeln('Bilangan Biner = ',b:5:0);
end;
readln;
end.