Даны натуральные числа А до В (В

program zz1;

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

begin

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

read (a);

write (' введите второе заданное число обязательно меньше первого '); / / вводим с клавиатуры второе число

read (b);

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

r:=r + i; / / вычисляем сумму чисел от b до a, прибавляя к сумме очередное число из цикла

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

end.