Перечислите все целые числа, расположенные между числами –2,3 и 4,28;
хелп​

Y+z+z+y+y+z=3y+3z=3(y+z)

1)
var sum, m, k: integer;
begin

sum := 0;
m := -10;

for k:=1 to 20 do
begin

if m mod 2 = 0 then
sum := sum + m;

m = m + 1;
end;

end.

2)
var sum, m, k: integer;
begin

proizv := 1;
m := -10;

for k:=1 to 20 do
begin

proizv := proizv + m;
m = m + 1;

end;

end.

..................................................................