program ch1202 implicit none integer :: big=10 integer :: i do i=1,40 print 100,i,big 100 format(1x,i3,2x,i12) big=big*10 end do end program ch1202