В общем, я частично написала, а вот про произведение значений что-то никак не соображу. Помогите пожалуйста))
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.