решить. Завтра экзамен, я вообще не понимаю что делать

В смысле ????????????

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.

Ты перенесешь ярлык.вроде как

Библиотека Интереснет Мозг человека ДНК Флешка Карта памяти