Разработайте алгоритм для вычисления суммы s всех целых чисел на отрезке (a,b)

1)пользователь задает границы промежутка.

2)Нужно суммировать все значения на промежутке(т. к скобки круглые не учитываем граничные значения)

3)Выводим на экран сумму

program otrezok;

var

 a, b, s : integer;

begin

 writeln('Введите границы промежутка:');

 writeln('a=');

 read(a);

 writeln('b=');

 read(b);

 s:=0;

 for a:=a+1 to b-1 do

   s:=s+a;

 writeln('Сумма: ',s);

end.