Program TJU1023;
Var
  c, e, k, d, j, m, temp, n, i, a, b: Integer;
Begin
  Readln(d);
  For e:=1 To d Do Begin
    Read(m, n);
    b := 0;
    a := abs(m-n);
    If m<n Then Begin
       temp := n;
       n := m;
       m := temp;
    End;
    For i:=m Downto 1 Do
      b := i * (i-a) + b;
      c := 0;
    For k:=1 To m Do Begin
    For j:=1 To n Do c:=k * j + c;
    End;
    c := c - b;
    Write(b);
    Write(' ');
    WRiteln(c);
  End;
End.

我把程序改成了这样，不过它显示“Wrong Answer”

http://acm.tongji.edu.cn/people/ps/showproblem.php?problem_id=1023

终于 AC 了！我 submit 了 n 次……最后发现 integer 太小，应该 longint。
Run ID User Problem Result Memory Time Language Date  
242021  ------  1023  Accepted 44 k 0 ms Free Pascal 2005-05-14 13:30:16

{我的程序：}
program tju1023;
var
t,i,j,k,m,n,r1,r2:longint;
begin
readln(t); r1 := 0; r2 := 0;
for k := 1 to t do begin
   readln(m,n); r1 := 0; r2 := 0;
   for i := 1 to m do
     for j := 1 to n do begin
       if i = j then
         r2 := r2 + (m + 1 - i) * (n + 1 - j)
       else
         r1 := r1 + (m + 1 - i) * (n + 1 - j);
     end;
   writeln(r2,' ',r1);
end;
end.