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.


syntax highlighted by Code2HTML, v. 0.9.1