Program Eksponen

program expo;

uses wincrt;

var i,n :integer;

e,f : real;

begin

e:=1; i:=0; n:=10; f:=1;

repeat

i:=i+1;

f:=f*i;

e:=e+1/f;

until i=n;

writeln ('e= ',e:11:4);

end.