*
* pythag - Calaculates the hypotenuse given two sides of a triangle
*
*  Written by: C. Severance 16Mar92
*
* Declare the variables:
*
      REAL A,B,HYP
*
* Prompt the user two sides of the triangle
*
      PRINT *,'Enter the first side of the triangle - '
      READ *,A
      PRINT *,'Enter the second side of the triangle - '
      READ *,B
*
* Calculate the hypotenuse
*
      HYP = SQRT ( A ** 2 + B ** 2 )
      PRINT *,'Third side of the triangle is - ',HYP
      END



$ f77 pythag.f
File pythag.f:
    MAIN:
$ a.out
 Enter the first side of the triangle - 
3
 Enter the second side of the triangle - 
4
 Third side of the triangle is -   5.00000000 
$ a.out
 Enter the first side of the triangle - 
10
 Enter the second side of the triangle - 
15
 Third side of the triangle is -   1.802775574E+001 
$