program main implicit none integer*8::N read *,N print '(i0)', (N*(N+1))/2 end program main