program sum_one2ten 
         implicit none
         integer i , sum      
         write(*,*) 'This program will calculating 1+2+3+...+10'
         write(*,*) 
         sum=0.0 
           do i=1, 10   
             sum = sum + i
           end do
         write(*,*) 'The answer of 1+2+3+...+10 is ' , sum

        end