Программа с циклом, Помогите пожалуйста Опции

[goosberry]

Задание такое: определить во сколько раз произведение положительных значений функции отличается от модуля произведения отрицательных значений функции y=((x^3)-1)sin2x на отрезке изменения аргумента от xn до xk с интервалом h.
В общем, я частично написала, а вот про произведение значений что-то никак не соображу. Помогите пожалуйста))

program zadacha;
uses
    crt;
var x,y,xn,xk,h:real;
    pol,otr:integer;
begin
     write('x nachalnoye= ');
     readln (xn);
     write('x konechnoye= ');
     readln (xk);
     write('chag= ');
     readln (h);
     pol:=0;
     otr:=0;
     x:=xn;
     while x<xk do
     begin
          y:=(sqr(x)*x-1)*sin(2*x);
          if y<0 then otr:=otr+1 else pol:=pol+1;
          writeln('x= ',x:3:3, '  y= ', y:3:3);
          x:=x+h;
     end;
     readkey;
end.