---

program Tabulation;

uses Math;

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

begin
  // Исходные данные
  a := 1.5;
  b := 1.2;
  x := -0.75;
  xk := -1.5;
  dx := -0.05;

  // Заголовок таблицы
  WriteLn('Табулирование функции y = 1.2(a-b)^3 * e^(x^2) + x');
  WriteLn('a = ', a:0:2, '  b = ', b:0:2);
  WriteLn('----------------------------------');
  WriteLn('     x          y(x)');
  WriteLn('----------------------------------');

  // Цикл с предусловием (шаг отрицательный, x уменьшается)
  while x >= xk do
  begin
    y := 1.2 * Power(a - b, 3) * Exp(Sqr(x)) + x;
    WriteLn(x:8:2, y:15:6);
    x := x + dx;
  end;

  WriteLn('----------------------------------');
  WriteLn('Расчёт завершён.');
  ReadLn;
end.