PROGRAM BALANCE
IMPLICIT NONE

!DECLARATION BLOCK
REAL::BALANCE,INTEREST,DEPOSIT
INTEGER::MONTH

!INITIALIZATION BLOCK
BALANCE = 0 ;
DEPOSIT = 50 ;

!EXECUTABLE STATEMENTS 

DO MONTH = 1,12 
INTEREST = 0.01 * BALANCE
BALANCE = BALANCE + DEPOSIT + INTEREST
PRINT *, MONTH,BALANCE
END DO


END PROGRAM BALANCE