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

function SumAB(a,b:integer):integer;begin  SumAB:=(a+b)*(b-a+1) div 2end;var  a,b:integer;begin // тестирование  Read(a,b);  Writeln('Сумма от ',a,' до ',b,' равна ',SumAB(a,b))end.