数三角(triangle)

题意/Description:

       小Z无聊时，想了个问题。由许多边长为1的小正方形，构成了一个n×m的长方形网格。在每个小正方形中，添一条斜线，从右上顶点连到左下顶点，构成了一个新图形，并且包含了许多三角形。小Z打算数清总共有多少三角形，可不一会儿就眼花了，你能帮他吗？

 

读入/Input：

       一行，两个整数n和m，表示长方形的长和宽。

 

输出/Output：

       一行，一个整数，表示三角形的个数。

 

题解/solution：

       枚举边长，算出竖着有多少个，横着有多少个。然后统计。

 

代码/Code：

var
  n,m:longint;
  ans:int64;
function min(o,p:longint):longint;
begin
  if o<p then exit(o);
  exit(p);
end;

procedure main;
var
  i,t,k:longint;
begin
  for i:=1 to min(n,m) do
    begin
      t:=n-i+1;
      k:=m-i+1;
      ans:=ans+t*k*2;
    end;
end;

begin
  readln(n,m);
  main;
  writeln(ans);
end.