Ответ:

Объяснение:

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.