напишите функцию которая вычисляет сумму чисел от a до b

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017// Внимание! Если программа не работает, обновите версию!function SumAB(a,b:integer):=Range(a,b).Sum;begin // тестирование  var a,b:integer; Read(a,b);  Writeln('Сумма от ',a,' до ',b,' равна ',SumAB(a,b))end.Пример13 58Сумма от 13 до 58 равна 1633Как вариант, можно воспользоваться формулой суммы арифметической прогрессии.function SumAB(a,b:integer):=(a+b)*(b-a+1) div 2;

function isch(a,b: integer): integer;var i,sum: integer;beginsum:=0;for i:=a to b do sum:=sum+i;isch:=sum;end;