Определить знак произведения функции - Pascal

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

Ребят, не могли бы помочь? Есть задача: определить знак произведения функции y=(3-sin2x)cos(x/3) на интервале изменения аргумента от Xn до Xk с шагом h. Я сначала не понял задачу и написал её так:

var x,xn,xk,h,y:double;
begin
Writeln('Введите начальное значение переменной xn : ');
Readln(xn);
Writeln('Введите конечное значение переменной xk : ');
Readln(xk);
Writeln('Введите шаг h : ');
Readln(h);
x:=xn;
While x<=xk do
begin
y:=(3-sin(2*x))*cos(x/3);
Writeln('x = ',x,' y = ',y);
If y>0 then
writeln ('Знак функции ПЛЮС');
If y<0 then
writeln ('Знак функции МИНУС');
x:=x+h;
end;
end.

(программа полностью работает,но она не доделана получается. Нужно, чтобы в конце все значения y перемножились и вывелось название знака). В общем ребят не могли бы подправить, сам чет не допру никак, что нужно изменить. А мне срочно эта задача нужна!!! Заранее спасибо огромное!

Решение задачи: «Определить знак произведения функции»

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

var x,xn,xk,h,y:double;
begin
Writeln('Введите начальное значение переменной xn : ');
Readln(xn);
Writeln('Введите конечное значение переменной xk : ');
Readln(xk);
Writeln('Введите шаг h : ');
Readln(h);
x:=xn;
y:=1;
While x<=xk do
 begin
  y:=y*(3-sin(2*x))*cos(x/3);
  x:=x+h;
 end; 
writeln('y=',y:0:2) ;//можно выводить можно нет
if y<0 then
writeln ('Знак функции МИНУС')
else if y>0 then writeln ('Знак функции ПЛЮС')
else writeln('Значение функции=0');
end.

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

Объявление переменных:
- x, xn, xk, h, y - переменные типа double (числа с плавающей запятой)
Вывод сообщения и ввод значений:
- Выводится сообщение Введите начальное значение переменной xn :, после чего пользователь вводит значение, которое сохраняется в переменную xn.
- Аналогично, выводится сообщение Введите конечное значение переменной xk :, после чего пользователь вводит значение, которое сохраняется в переменную xk.
- Затем выводится сообщение Введите шаг h :, и пользователь вводит значение, которое сохраняется в переменную h.
Вычисление функции и определение знака произведения:
- Устанавливается значение переменной x равным xn.
- Затем переменной y присваивается значение 1.
- Запускается цикл While, который выполняется пока переменная x меньше или равна xk.
- Внутри цикла значение переменной y умножается на выражение (3-sin(2*x))*cos(x/3).
- Затем переменной x прибавляется значение h.
- После выхода из цикла выводится значение y с точностью до двух знаков после запятой.
- Затем происходит проверка значения переменной y:
  - Если y меньше 0, выводится сообщение Знак функции МИНУС.
  - В противном случае, если y больше 0, выводится сообщение Знак функции ПЛЮС.
  - Иначе выводится сообщение Значение функции=0.