В паскале вводится 2 числа, найти сумму чисел стоящих меж ними,

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 скапливается сумма всех этих чисел.