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.