program enshu11b                              
implicitnone
real::x,y
real::dydx,x_new,verysmall
integer::i
x=20.0
verysmall=1.0e-2
doi=1,99
y=x**2-2.0
dydx=
x_new=
write(*,*)i,x_new,abs(x_new-sqrt(2.0)),y
if(abs(x_new-x)<verysmall)exit
x=x_new
enddo
endprogramenshu11b