На этой тебе болела и не поняла) буду должна) begin s: =0; for i: = -4 to 1 do s: = s+i; writeln (s); end.

Var i,s:integer;
begin
s:=0;
for i:= -4 to 1 do
s:= s+i;
writeln (s);
end.
Находится сумма  цикла состоящий из чисел от -4 до 1, с шагом 1, ответ -9.