Program Triples
!------------------------------------------------------------------------------
!Program: Pythagorean Triples
!Author: Chris Harper
!Date: 1/24/2008
!------------------------------------------------------------------------------

IMPLICIT NONE

!declarations
Integer :: m, n, side1, side2, hyp

!get input vars
Print *, "Pythagorean Triples"
Print *, "Enter m: "
Read *, m
Print *, "Enter n: "
Read *, n

!given formula
side1 = m**2 - n**2
side2 = 2 * m * n
hyp = m**2 + n**2

!print output
Print *, "First Side Length ", side1
Print *, "Second Side Length", side2
Print *, "Hypotenuse Length ", hyp
End