PROGRAM CONV
* 
* Converts an angle of DEGR degrees to the
* corresponding angle THETA in radians 
* via the formula:
* THETA = (PI * DEGR) / 180.0
*
      REAL THETA, DEGR, PI
      PARAMETER(PI = 3.141592654)  
      WRITE(*,*) 'Dwse tn gwvia se moires'
      READ(*,*) DEGR
      WRITE(*,100)' H gwvia se moires:',DEGR
* Metatropn tns gwvias apo moires se aktivia (rad)
      THETA = (PI * DEGR)/180.
      WRITE(*,100)' H gwvia se aktivia (rad):',THETA
 100  FORMAT(A,F12.7)
      STOP
      END