program t implicit none integer::N read*,N print"(i0)",(N*(N+1))/2 end program t