Программирование язык паскаль x^4+1,5x^3-2x^3+4cos^2 * sin4x

То что в скобках не напиши только, это для пометок 
program Znaniya; (1)uses crt; (2)var x,y:real; (3)begin (4)clrscr; (5)x:=-1; (6)while x<=1 do (7)  begin (8)   y:=x*x*x*x+1.5*x*x*x-2*x*x+4*cos(2*x)*sin(4*x); (9)   writeln('x=', x:4:1,'  y=', y:5:2); (10)   x:=x+0.2 (11)  end;readlnend.