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