Помогите) На теме этой болела) В долгу не останусь)
begin
s:=0;
for:= -4to 1 do
s:= s+i;
writeln (s);
end.