Даны два натуральных числа а и б требуется определить сумму чисел от а до б

Var
  a, b, s, i: integer;

begin
  readln(a);
  readln(b);
  for i := a to b do
  begin
    s := s + i;
  end;
  writeln(s);
end.

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b:integer;
  Read(a,b);
  Writeln('S=',Range(a,b).Sum)
end.

Пример
6 32
S=513