SQR by *yuko*

var m,n:word;begin repeat read(m,n);writeln(n*(n+1)*(m*3-n+1)div 6+ord(m<n))until 0>0end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page