program t
    integer::a(100),b,c,i
    a(1)=1
    do i=1,100
    a(i)=i
    end do
    read(*,*)b
    c=sum(a(1:b))
    write(*,*)c
end program t