---

program Variant5_Task1_Arrays;
var
  a, b, i, sum, count: integer;
  numbers: array of integer; // Использование динамического массива
begin
  write('Введите значения a и b (через пробел, b > a): ');
  readln(a, b);
  
  // Вычисляем количество элементов в диапазоне
  count := b - a + 1;
  
  // Устанавливаем размер массива
  SetLength(numbers, count);
  
  // Шаг 1: Заполняем массив числами от a до b
  for i := 0 to count - 1 do
    numbers[i] := a + i;
    
  // Шаг 2: Считаем сумму элементов массива
  sum := 0;
  for i := 0 to count - 1 do
    sum := sum + numbers[i];
    
  writeln('Сумма чисел от ', a, ' до ', b, ' равна: ', sum);
end.