{$n+}
uses crt;
var
x0, xk, h, i : single;
n : integer;
function y(x : single; k : integer) : single;
begin
y := k*sin(x) - cos(k*x);
end;
begin
clrscr;
write('x0 = '); readln(x0);
write('xk = '); readln(xk);
write(' n = '); readln(n);
write(' h = '); readln(h);
i := x0;
writeln('x':4,'y':9);
while(i<=xk+h/2) do begin
writeln(i : 5 : 2, y(i, n):10:2);
i := i + h;
end;
readln;
end.