---

program Zadanie20;
uses Math;

var
  x, xk, dx, a, y: real;

begin
  x := 5.62;
  xk := 15.62;
  dx := 0.5;
  a := 0.41;

  writeln('x', '        ', 'y');

  while x <= xk do
  begin
    y := a + exp(2/3 * ln(x)) * cos(x + exp(x));
    writeln(x:6:2, '   ', y:10:4);
    x := x + dx;
  end;

  readln;
end.