Program_TableChart
IMPLICIT NONE
Integer::index=(1,12), times, number=(1,12)
    PRINT*, 'What times table do you want to produce?'
    READ*, Number 
	DO Number=1 index
    PRINT*, 'Number*12'= times, index
END Program_TableChart