program ex0504
implicit none
integer, parameter :: Weight=45
integer :: input
do while (.true.)
 write(*,*) "Weight ="
 read(*,*) input
 if (input = = Weight) exit
end do
write(*,*) "You are right!"
stop
end program ex0504