Составить программу,которая вычисляет сумму от -10 до n

Question

Составить программу,которая вычисляет сумму от -10 до n

Answer 1

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