【题目描述】 栋栋有一块长方形的地，他在地上种了一种能量植物，这种植物可以采集太阳光的能量。在这些植物采集能量后，栋栋再使 用一个能量汇集机器把这些植物采集到的能量汇集到一起。 栋栋的植物种得非常整齐，一共有n列，每列有m棵，植物的横竖间距都一样，因此对 于每一棵植物，栋栋可以用一个坐标(x, y)来表示，其中x的范围是1至n，表示是在第x列，y的范围是1至m，表示是在第x列的第y棵。 由于能量汇集机器较大，不便移动，栋栋将它放在了一个角上，坐标正好是(0, 0)。 能量汇集机器在汇集的过程中有一定的能量损失。如果一 棵植物与能量汇集机器连接而成的线段上有k棵植物，则能量的损失为2k + 1。例如，当能量汇集机器收集坐标为(2, 4)的植物时，由于连接线段上存在一棵植物(1, 2)，会产生3的能量损失。注意，如果一棵植物与能量汇集机器连接的线段上没有植物，则能量损失为1。现在要计算总的能量损失。 下面给出了一个能量采集的例子，其中n = 5，m = 4，一共有20棵植物，在每棵植物上标明了能量汇集机器收集它的能量时产生的能量损失。 在这个例子中，总共 产生了36的能量损失。
【输入文件】 输入文件energy.in仅包含一行，为两个整数n和m。【输出文件】 输 出文件energy.out仅包含一个整数，表示总共产生的能量损失。

【样例输入1】5 4【样例输出1】36【样例输入2】3 4【样例输出2】20【数据规模和约定】 对于10%的数据：1 ≤ n, m ≤ 10； 对于50%的数据：1 ≤ n, m ≤ 100； 对于100%的数据：1 ≤ n, m ≤ 1000；

我的解法

var
 sum:longint; cc:longint;
 i,j,a,m,n:integer;
 function min(x,y:integer):integer;
  begin
   if x>y then min:=y
    else min:=x;
  end;


 begin
assign(input,'energy.in');reset(input);
assign(output,'energy.out');rewrite(output);
  sum:=0;
  readln(n,m);
  cc:=m*n;
 for i:=1 to (n div 2) do
   for j:=1 to (m div 2) do{以此长宽规定的小矩形中的点作为连线的起点}
    begin
    if i=j then continue;{避免从左下到右上的对角线上的点重复被当做起点计算，先不考虑}
    a:=min(n div i,m div j);{计算以此起点为直线上的点的个数}
    sum:=sum+a*a;{按等差数列前N项和求解}
    cc:=cc-a;{除掉已处理的点}
    end;

    a:=min(m,n);{处理对角线}
    cc:=cc-a;
    sum:=sum+cc+a*a;{CC即未在一条直线上的点，都为1}
   writeln(sum);
close(input);
close(output);
 end.

希望厉害的编程学习者能告诉我的思路错在哪
真的感激不尽