program y480 integer(8)::N read(5,*)N print'(i0)',(N*(N+1))/2 end program y480