Найти произведение четных чисел от -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.