---

program Variant5_Task1;
var
  a, b, i, sum: integer;
begin
  write('Введите значения a и b (через пробел, b > a): ');
  readln(a, b);
  
  sum := 0;
  for i := a to b do
    sum := sum + i;
    
  writeln('Сумма чисел от ', a, ' до ', b, ' равна: ', sum);
end.