Program ex0607
implicit none

real, parameter::weight =45.0
real, parameter::error =0.0001
real            ::guess

do while(.true.)
    write(*,*)"weight:"
    read(*,*)guess
    if (abs(weight-guess)<error) exit
end do

stop
end