Допустим, что a и b входят в этот промежуток.

program test;
var a, b, sum, i: integer;
begin
   write('Enter two integers:');
   readln(a, b);

   sum:=0;

   for i:=a to b do
   sum:=sum+i;

   write('Sum = ', sum);
   readln;
end.