Изменить программу так чтобы она считала сумму целых чисел от a от b

Var a,b,i,sum: integer;
begin
sum:=0;
writeln('Введите A: ');
readln(a);
writeln('Введите B: ');
readln(b);
for i:=a to b do
begin
sum:=sum+i;
end;
writeln(sum);
End.