var s,k:integer; begin s:=20; for k:=-45 to 43 do s:=s-k; writeln(s) end.

спасибо большое ;)

в начальный момент s=20s=20-(-45)=65s=65-(-44)=109остальное взаимоуничтожится, потому что s-(-43) = - (s - 43)