program one_to_ten
      integer sum, i
      sum = 0
      do i=1,10
        sum = sum + i
      end do
      write(*,*) 'The answer is :', sum
      end