begin 
library A0, A1, A4, A5, A15;
real x, y;
for x := 81, 25, 16, 9, 8, x/2 while x >0.001 do 
   begin
   writetext(30, {SQRT _ OF _ });
   write(30, format({+d.ddddddddddº+dd}), x);
   writetext(30, { _ IS _ });
   y := sqrt(x);
   write(30, format({+d.dddddddddddº+dd}), y);
   writetext(30, { _ re-squared _ IS _ });
   write(30, format({+d.dddddddddddº+dd}), y^2);
   writetext(30, { _ relative _ error _ IS _ });
   write(30, format({+d.dddddddddddº+ddc}), y^2/x -1.0);
   end 

end 
|