---

program Task1_Var20;
uses Math;
var
  x, y, a, xk, dx: Real;
begin
  a := 0.41;
  x := 5.62;
  xk := 15.62;
  dx := 0.5;
  
  WriteLn('   x   |      y    ');
  WriteLn('-------------------');
  
  while x <= xk + dx/10 do
  begin
    y := a + Power(x, 2/3) * Cos(x + Exp(x));
    WriteLn(x:6:2, ' | ', y:10:4);
    x := x + dx;
  end;
end.