program SumOfNumbers;
var
a, b, sum, i: integer;
begin
writeln('Введите начальное значение a:');
readln(a);
writeln('Введите конечное значение b:');
readln(b);
sum := 0;
i := a;
while i <= b do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Сумма всех целых чисел в промежутке от ', a, ' до ', b, ' равна ', sum);
end.

Программа запрашивает у пользователя начальное значение a и конечное значение b. Затем с помощью цикла while программа находит сумму всех целых чисел в промежутке от a до b и выводит результат на экран.