На отрезке [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