найти произведение четных чисел от -100 до 100 паскаль

Ответ: 0Т.к. среди чисел произведения будет встречен ноль (который является чётным числом), который всё и занулит.Var  i : Integer;  m : Longint;Begin  m:=1;  For i:=-100 to 100 do If not Odd(i) then m:=m*i;  Writeln(m); end.