program test
implicit none 
real*8 sum,n,l
read*,l
sum=0.0
n=1.0
do
sum=sum+exp(n)
 if(sum>=l)exit
 
 
 n=n+1
end do
print*,n,sum-exp(n)
end