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

program znf;
uses math;
var x, y: real;
begin
    write('Введите значение x: ');
    readln(x);
    y := 4 * power(x - 3, 6) - 7 * power(x - 3, 3) + 2;
    writeln('Y = ', y);
end.