Нахождение произведения целых чисел из [-8: 14] ,

Диапазон -8..14 содержит в себе нуль, т.е. самый простой вариант ответа: Произведение этих чисел равно нулю.

Но если не рассматривать нуль в качестве множителя, то ответ: 3515028701184000

 Var p : BigInteger;
    i : Integer;
Begin
  p:=1;
  For i:=-8 to 14 do If i<>0 then p:=p*i;
  Writeln(p);
end.