var a,b,c,d: double;

procedure writebits (cnt : integer; var x);
var
  b: byte;
  i,j: integer;
begin
  for i := 0 to cnt-1 do begin
    b := byte((PChar(@x)+i)^);
    for j := 0 to 7 do write (b shr j and 1);
  end;
  writeln;
end;

begin
  a := 0.1;
  b := 0.2;
  c := a+b;
  d := 0.3;
  writebits(8, c);
  writebits(8, d);
  writeln(a+b=d, ' ', a+b=a+b);
end.