数三角(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.