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