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