PROGRAM CIRCLE
      REAL R, AREA, SQAREA
      REAL*8 DAREA, DSQAREA
      WRITE (*,*) 'Give radius R:'
      READ (*,*) R
      AREA = 3.14159*R*R
      SQAREA = SQRT(AREA)
      WRITE (*,*) 'Area = ', AREA
      DAREA = 3.141592653589793D0 * DBLE(R) * DBLE(R)
      DSQAREA = DSQRT(DAREA)
      WRITE (*,*) 'Area = ', AREA
      WRITE (*,*) 'Double Precision Area = ', DAREA
C
      WRITE (*,100) AREA, DAREA
 100  FORMAT('S.P., D.P. Area = ',F7.2,' ',1PE11.3)
      STOP
      END