var i,j,k:integer;begin repeat readln(i);k:=0;for j:=1 to i do k:=k+j*j;writeln(k);until eof;end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page