program one2n
      write(*,*)'what is your n? (integer)'
      read(*,*)n
      m=0
      do i=1,n
        m=m+i
      end do
      write(*,*)'1+2+...+n=',m
      end