Напишите решение пожалуйста к примеру(Найти сумму всех целых чисел от -10 до b (значение b вводится с клавиатуры; b>a))Программа PascalABC.net

Если a -  это -10 :var b,i,s:integer;begins:=0;read (b);if (b>-10) then beginfor i:=-10 to b dobegins:=s+i;end;end;writeln (s);end.