Вычислить сумму всех положительных чисел от - 10 до 10 паскаль

program zz1;

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

begin

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

if i > 0 then / / проверяем условие, если число положительное, то

r:=r + i; / / вычисляем сумму положительных чисел от - 10 до 10 по формуле

write (' сумма положительных чисел от ', - 10,' до ', 10,' = ', r); / / выводим ответ

end.