READ(*,*)X0,EPN=110 X=1.0/(X0*X0+1.0)WRITE(*,200) N,X200 FORMAT(1X,2HN=,I4,5X,2HX=,F10.6)IF (ABS(X-X0).LT.EP) GOTO 20X0=XN=N+1GOTO 1020 STOPEND