PROGRAM Cartesian
    IMPLICIT NONE
    REAL :: pi, length, angle, angle_in_radians
    pi = ATAN(1.0)*4.0
    PRINT *, "Type in length and angle (in degrees)"
    READ *, length, angle
    angle_in_radians = (angle/180.0)*pi
    PRINT *, "(x, y) is (", length*COS(angle_in_radians), &
        ",", length*SIN(angle_in_radians), " )"
END PROGRAM Cartesian