PROGRAM MATHE(INPUT,OUTPUT);                                
(* APPROXIMATIVE BERECHNUNG HOEHERER FKT.           *)      
(* ALGORITHMEN  AUS: DAL-CHIN: MODULA-2             *)      
 CONST EPS=1.0E-8;                                          
 VAR X,Y:REAL;                                              
                                                            
FUNCTION EXP(X:REAL):REAL;                                  
 CONST E10=22026.46579;                                     
 VAR F,S:REAL;I:INTEGER;                                    
BEGIN                                                       
 IF X>10 THEN EXP:=EXP(X-10)*E10                            
 ELSE                                                       
  BEGIN                                                     
   I:=0;S:=1.0;F:=1.0;                                      
   REPEAT                                                   
    I:=I+1;F:=F*X/I;S:=S+F                                  
   UNTIL F<EPS;                                             
   EXP:=S                                                   
  END                                                       
END;(*EXP*)                                                 
                                                            
FUNCTION SQRT(X:REAL):REAL;                                 
 VAR Y,Z:REAL;                                              
BEGIN                                                       
 Y:=2;                                                      
 REPEAT Z:=Y;Y:=Z*Z UNTIL Y>X;                              
 REPEAT                                                     
  Y:=Z;Z:=0.5*(Y+X/Y)                                       
 UNTIL ABS(Y-Z)<EPS;                                        
 SQRT:=Z                                                    
END;(*SQRT*)                                                
                                                            
BEGIN                                                       
 REPEAT                                                     
  READLN(X);Y:=EXP(X);                                      
  WRITELN(Y,LN(Y))                                          
 UNTIL X=0;                                                 
END.