fpc/rtl/os2/tests/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:real;
    i:byte;

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