Program Ch08_03
!
! This program prints the multiplication table
!
implicit none
Integer :: index = ' ', times
print *, 'What times  table do you want'
read *, index
print *, "Times table: '
Do times = 1, index
Print *, times, '*12=', times * index
  Endo
    End program Ch08_03