Pascal :

var n,m,i,s:longint;
begin
  readln(n,m);
  for i:=n to m do
    s:=s+i;
  writeln(s);
end.