program ch1205
implicit none
integer :: i
real    :: small = 1.0
real    :: big   = 1.0
  do i=1,50
    print 100,i,small,big
    100 format(' ',i3,' ',e10.4,' ',e10.4)
    small=small/10.0
    big=big*10.0
  end do
end program ch1205