program block_if
      character*10 nama
      real weight
      print* ,'Please key in your name and weight'
      read*, nama, weight
      if (weight .gt. 100)then
           print*, nama,' is very fat'         
      elseif (weight .gt. 70)then
           print*, nama,' is just fat'         
      elseif (weight .gt. 40)then
           print*, nama,' is not fat'         
      else
           print*, nama,' is not healthy'
      end if
      end