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

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 32S=513