program p;
 var i,d,n1,n2:integer;
begin
 write('Введите A:');
 readln(n1);
 write('Введите B:');
 readln(n2);
 d:=0;
 for i:=n1 to n2 do
  d:=d+i;
writeln('Сумма=',d);
end.