fpc/rtl/os2/calc_e.pas

program calc_e;

{Calculate the number e.}

const	fac:array[0..7] of word=(1,1,2,6,24,120,720,5040);

var	e:fixed;
	i:byte;

begin
	e:=0;
	for i:=0 to 7 do
		e:=e+fixed(1)/fac[i];
	writeln(e);
end.