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.