Desktop_dowhile_AgainAgain_

program example3implicit none realparameter::weight=50.0 realparameter::e=0.1 real guess write (**) " weight is" do while(abs(guess-weight)>e) read(**) guess if(abs(guess-weight)<e) exit write(**) "try again!" end do write(**) "you are right!"stop end