составить алгоритм для нахождения суммы всех чисел на промежутке от a до b. a и b вводить клавиатурой

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

for i:=a to b do / / организуем цикл, в котором переберем все числа от а до b

r:=r + i; / / вычисляем сумму чисел от а до b по формуле

write (' суммa чисел от ', a,' до ', b,' = ', r); / /выводим ответ

end.