Найти сумму отрицательных чисел из диапазона [-33;47]

Question

Найти сумму отрицательных чисел из диапазона [-33;47]

Answer 1

// прога на Pascal`e
i: shortint;
sum: longint;
begin
for i:=-33 to -1 do
sum:=sum+i;
write (sum); {выведет 561}
end.