for n=1to 99p=p+(1-p)*n/365
?"n=",n+1,", p=",p using"%.8f"next