main=readLn>>= \n->print$maximum[j|i<-[0..n],let j=(n-i)*(i+1)+i]