найти сумму всех целых чисел от 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,' до ', b,' = ', r); / / выводим ответ

end.