kasper182

uses crt;
var n:integer;
e,s,t:real;
begin
clrscr;
e:=0.0001;
n:=0;
t:=1;
s:=t;
while abs(t)>e do
begin
n:=n+1;
t:=-t/n;
s:=s+t;
end;
writeln('S =',s:0:5);
write('1/e=',1/exp(1):0:5);
readln
end.