То что в скобках не напиши только, это для пометок 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.
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.