program rttriangle
      
C**********************************************************
C     Read in the lengths of the two legs of a right triangle
C	and print out the area of the triangle and the hypotenuse
C**********************************************************

C-----SPECIFICATIONS
      real leg1, leg2, hyp, area
      
      print *, 'Enter the length of leg #1: '
          read *, leg1
      
      print *, 'Enter the length of leg #2: '
          read *, leg2
      
      area = 0.5 * leg1 * leg2
      hyp = sqrt(leg1**2.0 + leg2**2.0)
      
      print *, 'The area is: ',area
      print *, 'The length of the hypotenuse is: ',hyp
      
      stop
      end