!George Austin Corbett
!Extra Credit Problem 1.4.5
PROGRAM Circle_Calculator

IMPLICIT NONE
REAL:: diameter, radius, circumference, area

WRITE(*,*) "Enter the diameter of the circle: "
READ *, diameter
WRITE(*,*) "" ! This just prints a line to make it look pretty

!Calculate and print radius
radius = diameter * 0.5
WRITE(*,*) "The radius of this circle is: " ,radius


!Calculate and print circumference
 circumference =  2 * 3.141592653 * radius
WRITE(*,*) "The circumference of this circle is: " , circumference

!Calculate and print area
area = 3.141592653 * radius * radius
WRITE(*,*) "The area of the circle is: " , area

END PROGRAM Circle_Calculator