Pascal:посчитать сумму всех целых чисел от -10 до b (b>=-10) напишите програму

Question

Pascal:посчитать сумму всех целых чисел от -10 до b (b>=-10)
напишите програму

Answer 1

Var i,b,s:integer;
begin
write('b = '); readln(b);
s:=0;
for i:=-10 to b do s:=s+i;
writeln('s = ',s);
end.

Пример:
b = 5
s = -40