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

спасибо

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