! 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