C     AIMACO SAMPLE PROGRAM - COMPUTE AREA OF CIRCLE
      DIMENSION A(10)
      READ 100, R
100   FORMAT (F10.2)
      PI = 3.14159
      AREA = PI * R * R
      WRITE 200, AREA
200   FORMAT (F12.4)
      STOP
      END