Program Triangle
!------------------------------------------------------------------------------
!Program: Triangle Perimeter and Area
!Author: Chris Harper
!Date: 1/24/2008
!------------------------------------------------------------------------------

IMPLICIT NONE

!declarations
real :: a, b, c, perimeter, s, area

!get input vars
Print *, "Triangle Perimeter and Area"
Print *, "Enter side A length: "
Read *, a
Print *, "Enter side B length: "
Read *, b
Print *, "Enter side C length: "
Read *, c

!calc perimeter
perimeter = a + b + c

!calc area
s = perimeter / 2
area = sqrt(s * (s - a) * (s - b) * (s - c))

!print output
Print *, "A: ", a
Print *, "B: ", b
Print *, "C: ", c
Print *, "Perimeter: ", perimeter
Print *, "Area: ", area
End