不是VIP会员，不能显示答案

题目解答

题目：
Var n, m, i, ans : Integer;
Begin
Readln(n, m);
ans := 0;
i := n;
While i <= m Do Begin ans := ans + i;
Inc(i);
End;
Writeln(ans);
End. 输入：10 20
输出：165
考点：
分析：
解答：
评论：
老师：