На отрезке [0,4; 1] с шагом 0,1 протабулировать функцию 2xsin-cosx

const xn=0.4; xk=1; h=0.1; var x,y:real; i,n:integer; begin x:=xn-h; n:=round((xk-xn)/h)+1; writeln(' x     y'); for i:=1 to n do  begin  x:=x+h;  y:=2*sin(x)-cos(x);  writeln(x:4:1,y:7:3);  end; end. Результат:  x     y  0.4 -0.142  0.5  0.081  0.6  0.304  0.7  0.524  0.8  0.738  0.9  0.945  1.0  1.143