program ex0502
 implicit none
 integer, parameter :: Weight=45
 integer :: input = 0
 do while (input /= Weight)
  write(*,*) 'weight ='
  read(*,*) input
 end do
 write(*,*) 'You are right!'
 stop
 end program ex0502