!
      PROGRAM P21
!
!
!     DECLARATION STATEMENTS
!
      IMPLICIT NONE
      INTEGER :: AGE,POUNDS,GRAMS
      REAL :: DAYS
      CHARACTER (LEN=20) :: NAME,ADDRESS
      LOGICAL :: SINGLE
!
!     EXECUTABLE STATEMENTS
!
!
      PRINT *, 'This is Program >> P21  - Assignment Statement'

!
      AGE=19
      POUNDS=105
      GRAMS=POUNDS*454
      DAYS=AGE*365.25
      NAME='JANE'
      ADDRESS='123 MAIN STREET'
      SINGLE=.TRUE.
!
!     PRINTING STATEMENTS
!
      PRINT *,'NAME AND ADDRESS :'
      PRINT *, NAME,ADDRESS
      PRINT *,'AGE AND NUMBER OF DAYS :'
      PRINT *, AGE,DAYS
      PRINT *,'POUNDS AND GRAMS :'
      PRINT *, POUNDS,GRAMS
      PRINT *,'SINGLE :'
      PRINT *, SINGLE
      STOP
      END PROGRAM P21