Объяснение:
Program n1;
var s, b, i: longint;
begin
writeln('Введите b');
readln(b);
s:=0;
for i:=-10 to b do begin
s:=s+i;
end;
writeln('Сумма от -10 до ', b, ' равна ', s);
readln;
end.
