Здраствуйте, посогите нарисовать блок-схему
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.