m:-readln([N]),N>0,format("~d
",N*(N+1)*(N*2+1)/6),m.