program y480_2
    integer(8)::N,i
    integer(8)::result=0
    read(5,*)N
    
    do i=1,N
        result=result+i
    end do
    
    print'(i0)',result
end program y480_2