!  A program to calculate the cross sectional area of a 
! cylinder whose diameter is equal to 4m, and height is equal 
! to 20m

PROGRAM CROSS_SEC_AREA
IMPLICIT NONE

REAL::R , D = 4 , AREA  , H = 20 , AREA_1
REAL,PARAMETER::PI = 22/7

R = D/2.0
AREA = PI * ((R)**2)
AREA_1 = AREA / 10000

PRINT 10, 'AREA :',AREA_1,'CM**2'
10 FORMAT (A,1X,F0.9,A)

END PROGRAM CROSS_SEC_AREA