LNEXPETC|
begin

integer count, layout;

real x;
integer i;

count := 100;
layout := format([+d.ddddddddddº+ndc_]);

writetext(30, [sqrt(1.0/x)[c_]]);
for x := 9, 8, 7, 6, 5, 4, 3, 2, 1, x step x until  1048576.0 do
   write(30, layout, sqrt(1.0/x));

writetext(30, [[c_]sqrt(x)[c_]]);
for x := 9, 8, 7, 6, 5, 4, 3, 2, 1, x step x until  1048576.0 do
   write(30, layout, sqrt(x));

writetext(30, [[c_]ln(i),*abs(exp(ln(i)))[c_]]);
for i := 1 step 1 until count do
begin
   write(30, layout, ln(i));
   write(30, layout, abs(exp(ln(i))));
end;

writetext(30, [[c_]-ln(exp(1.0/i)^i_[c_]]);
for i := 1 step 1 until count do
   write(30, layout, ln(exp(1.0/i)^i));

end
|