program T01
    implicit none
    integer::a(100),b,i
    read(*,*)b
        do i=1,100
            a(i)=i
        end do
    write(*,*)sum(a(1:b))
end program T01