program main
 implicit none
 
 integer n
 real(8) a

 a = 0

 do n = 1, 10000
  a = a + 0.01d0
  write(*,*) n,a
 end do

end program main
