---

program Tabulation_Variant6;

uses Math;

var
  x, y, b, x0, xk, dx: Real;

begin
  // Исходные данные
  b  := -0.8;
  x0 := -1.5;
  xk := -2.5;
  dx := -0.5;

  WriteLn('   x        y(x)');
  WriteLn('-------------------');

  x := x0;
  while x >= xk + dx/2 do   // идём на убывание
  begin
    if x <> 0 then
    begin
      y := Sqr(x) + Tan(5*x + b/x);
      WriteLn(x:7:2, '   ', y:12:6);
    end
    else
      WriteLn(x:7:2, '   не определено (x=0)');

    x := x + dx;
  end;

  ReadLn;
end.