найти сумму чисел от 1 до 100 в программе паскаль abc

program zz1;

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

begin

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

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

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

end.