Listing PERMANEN.PAS

Program permanent; 
 var n,log_nat,log_zec:Real;    
 f:Text; 
 Begin 
 Assign(Input,'PERM.IN'); Reset(Input);    
 Readln(n); 
 Close(Input); 
 Assign(Output,'PERM.OUT'); Rewrite(Output);    
 log_nat:=(n+0.5)*Ln(n)-n+0.5*Ln(2*Pi)+    
 1/(12*n)-1/(360*n*n*n){+...};    
 log_zec:=log_nat/Ln(10); 
 Writeln(Int(3*log_zec)+1:0:0); 
 Close(Output) 
 End. 

[cuprins]