main=do x<-readLn;print$sum[1..x-2]