Ответ:

program summa;

var a,b,c,S: integer;

begin

readln(a,b);

c:=a; S:=0;

while c<=b do begin

S:=S+c; c:=c+1; end;

writeln ('S=',S)

end.

Объяснение:

readln(a,b); - вводим значения границ промежутка

c:=a; S:=0; - присваиваем переменной c значение переменной a; присваиваем переменой S значение 0 (сумма в начале равна 0)

while c<=b do begin - начинаем цикл

Строки:

readln(a,b);

c:=a; S:=0;

можно поменять местами