помочь наити ошибку в коде

[N-Ban]

Дано действительное число x. Вычислить:
(x-2)(x-4)(x-6)...(x-64)/(x-1)(x-3)(x-5)...(x-63)

Считает через раз а если читает то некоректно

program L3;
var
a,b,c,d:real;
i:integer;
begin
b:=1;
c:=1;
readln(a);
for i:=1 to 64 do
begin
if i mod 2=0 then b:=b*(a-i)
else c:=c*(a-i)
end;
d:=b/c;
writeln (d:8:3);
readln;
end.

поиск нечем неувенчался наидено несколько подобных задач но там та же ситуация
Решить надо именно For'ом

[andrewpalkin]

Что именно не работает ?

[N-Ban]

Есть подазрение что в переменои с оч часто постояно получается 0
В теории то код рабочии а вот на практике нехотит

[andrewpalkin]

Сообщение от N-Ban

Есть подазрение что в переменои с оч часто постояно получается 0
В теории то код рабочии а вот на практике нехотит

А ты слышал о такой вещи , как деление на 0

не вводи числа 1,3,5,7..63 и не будет деления на ноль

[Hacker19_90]

Сообщение от andrewpalkin

А ты слышал о такой вещи , как деление на 0

не вводи числа 1,3,5,7..63 и не будет деления на ноль

да дело то не только в делении на ноль, там ещё переполнение выскакивает!

[andrewpalkin]

Сообщение от Hacker19_90

да дело то не только в делении на ноль, там ещё переполнение выскакивает!

А какое число ты вводил , что переполнение выдало ?

[Hacker19_90]

Ну допустим 4 и 70 и много чего ещё!

[andrewpalkin]

Сообщение от Hacker19_90

Ну допустим 4 и 70 и много чего ещё!

Запустил оба числа , все нормально сработало , выдал результат

[N-Ban]

А если воодить четные числа получается 0

[andrewpalkin]

Сообщение от N-Ban

А если воодить четные числа получается 0

А что должно получится , если 0 разделить на любое число . Тебе по математике тоже помочь надо ?

Числа 2,4,6,8,..64 - будут давать результат 0