Найти значение функции y = 4(x-3)^6 — 7(x-3)^3+ 2 при данном значении x — Pascal(Паскаль)

Program Begin26;

Var
  x, y: Real;

Begin
  WriteLn('Введите х');
  ReadLn(x);
  y := 4 * (sqr(x - 3) * sqr(x - 3) * sqr(x - 3)) - 7 * sqr(x - 3) *
    (x - 3) + 2;
  WriteLn('y(x) = ', y);
  ReadLn;

End.