{ Copyright (C) 1985 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }

program mantissa ;
     {                                                        }
     { This program computes effective number of significant  }
     { bits in mantissa of floating point numbers.            }
     {                                                        }
var
  i                     : integer ;
  x                     : real ;
begin
  i := 0 ;
  x := 1.0 ;
  repeat
    x := x / 2.0 ;
    i := i + 1 ;
  until (1.0 + x) - 1.0 = 0.0 ;
  writeln('Significant Bits: ', i:2)
end.

{ Copyright (C) 1985 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }