A/B/B/A:-A<B.
A/B/A/B.
m:-prompt1(''),readln([A,B]),(A<0;A/B/M/N,!,format("~d
",N*(N+1)*(3*M+1-N)/6),m).