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

var i,b,s:integer;beginwrite('b = '); readln(b);s:=0;for i:=-10 to b do s:=s+i;writeln('s = ',s);end.Пример:b = 5s = -40