integer a,n
read(*,*)n
a=0
do i=1,n
   a=a+i
end do
write(*,*) a
end