--test program
with Text_io; use Text_io;
with MATHS; use MATHS;
procedure FINDROOT is
package INT_IO is new Integer_IO(integer);
use INT_IO;
  X,N:REAL;
  DIV:REAL:=100.0;
begin
  for M in 1..20 loop
    N:=REAL(M)/100.0;
    X:=N*N;
    Put("SQRT of");
    Put(N);Put(" squared");
    Put(" is ");Put(SQRT(X));
    Put("  The error is ");
    Put((N-SQRT(X))/N*100.0);
    Put(" %");
    New_line;
  end loop;
end FINDROOT;