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

program zz1;

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

begin

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

read(a);  

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

read(b);

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

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

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

end.