Вычислить произведение - Pascal ABC (14489)

Формулировка задачи:

Что здесь не правильно, выводит 0

program LB5_2;
Var
x,P,i:real;
Begin
writeln('Введите x');
readln(x);
P:=1;
i:=3;
while i<=17 do
Begin
P:=(sin(i*pi*x))/(i*sqrt(x));
i:=i+2;
end;
writeln(P:5:3);
end.

Решение задачи: «Вычислить произведение»

Листинг программы

var x,P:real;
    i:byte;
begin
writeln('Введите x');
readln(x);
if x<=0 then
 begin
  write('Произведение не определено');
  exit;
 end;
P:=1;
i:=3;
while i<=17 do
 begin
  P:=P*(sin(i*pi*x))/(i*sqrt(x));
  i:=i+2;
 end;
writeln(P);
end.

Объяснение кода листинга программы

В начале кода объявляются переменные x, P и i типа real и byte соответственно.
Затем происходит вывод сообщения 'Введите x', которое позволяет пользователю ввести значение переменной x.
Далее проверяется, что значение x не меньше нуля, иначе выводится сообщение 'Произведение не определено' и программа завершается.
Если значение x не равно нулю, то присваивается значение 1 переменной P и значение 3 переменной i.
Затем начинается цикл while, который выполняется до тех пор, пока значение переменной i не станет больше или равно 17.
Внутри цикла выполняется вычисление произведения P на синус ipix, деленное на i*sqrt(x). Это значение присваивается переменной P.
После этого значение переменной i увеличивается на 2.
По завершении цикла выводится значение переменной P.