{$N+,E+}
uses crt;

var x :extended;

function alg2(x:extended):extended;
var i:integer;
    a,y,eps   :extended;
begin
 eps:=0.0000000001;
 y:=1; a:=1;i:=1;
 while abs(a) > eps do
   begin
     a:=a*x/i;
     y:=y+a;
     inc(i);
   end;
alg2:=y;
end;


begin
 clrscr;
 repeat
  write('  Geben Sie x ein ! '); readln(x);
  writeln(exp(x),'   Alg2: ',alg2(x) );
  writeln;
 until x=0;
end.