program log10k;


{

T.A. Elkin's Log(10K!) Benchmark.

Computes number of decimal digits in 10,000 factorial.
Exact answer is 35660

See COMPUTERWORLD. 3/20/87 for more info.

Adapted by the CP/M Basic Version by Jim Lill 7/20/87

Comparision Times:

IBM Compatible, GW-BASIC:   149 secs
MBASIC 5.0 @ 10MHz:         110 secs
Turbo Pascal (CP/M @10MHz): 108 secs

}

const bell = ^G;
     exact = 35660.0;

var i : integer;
   e,x,y,z : real;

begin;  {log10k}
 z:= 10.0;
 x:= 0.0;
 writeln('Elkins Log(10K!) Benchmark',bell);
 for i := 2 to 10000 do
   begin
     y:= i;
     x:= x + ln(y);
   end;
 writeln('Done',bell);
 writeln('Error: ',(exact- x/ln(z)))
end.  {log10k}