*==============================================================
*  MAINROUTINE
*==============================================================
      PROGRAM MAIN
      REAL A,B,C,S

      READ(5,*)A,B,C

      S=HERON(A,B,C)
	
      WRITE(6,*)S

      STOP
      END

*==============================================================
*  FUNCTION
*==============================================================
      REAL FUNCTION HERON(A,B,C)
      REAL A,B,C,S

      S=(A+B+C)/2.0

      HERON=SQRT(S*(S-A)*(S-B)*(S-C))

      RETURN
      END