В паскале вводится 2 числа, найти сумму чисел стоящих между ними, очень надо( например ввели 2 и 7, надо найти 3+4+5+6)

var a1: integer; a2: integer; i: integer;sum:integer;begin write(\'Введите число 1=\'); readln(a1); write(\'Введите число 2=\'); readln(a2); sum:= 0; for i:= a1+1 to a2-1 do begin sum:= sum + i; end; writeln(\'Сумма равна =\', sum);end.В переменной sum накапливается сумма, поэтому перед циклом ее значение сбрасывается в ноль.Цикл начинается с числа, на единицу большем переменной а1 (\"число 1\") и заканчивается числом, на единицу меньшим переменной а2 (\"число 2\"). А в переменной sum накапливается сумма всех этих чисел.