Вычислить удвоенную сумму целых чисел из заданного промежутка - Pascal ABC

Формулировка задачи:

Вычислите удвоенную сумму целых чисел из промежутка от A до B (A<B).

program dva;
var i,a,b,s: integer;
begin
writeln('Введите А');
readln(a);
writeln('Введите В');
readln(b);
    s:=1;
    if b>=a then
    begin
      for i:=a to b do
        ????? (какое условие?)
    Write('Удвоенная сумма всех целых чисел на промежутке от А до B = ',s);
    end
    else writeln(‘А должно быть больше В’);
end.

Решение задачи: «Вычислить удвоенную сумму целых чисел из заданного промежутка»

Листинг программы

  for i := a to b do
    s := s + i;
  WriteLn('Удвоенная сумма чисел от ', a, ' до ', b, ' = ', s * 2);

Объяснение кода листинга программы

В цикле for переменной i присваивается значение от a до b (включительно).
Переменная s инициализируется суммой всех чисел в заданном промежутке.
После окончания цикла, значение переменной s умножается на 2 и выводится на экран.
Выводится сообщение с указанием начальной и конечной точек промежутка.