Составьте программу для вычисления функции в паскале

По дате
По рейтингу
var
x, Fx: real;
begin
writeln('Введите х:');
readln(x);
if (x<=3) then
Fx:= sqr(x) - 3*x + 9
else
Fx := 1/(x*x*x + 6);
writeln(Fx);
end.
if x > 3 then fx := 1/(x*x*x+6) else fx := x*x-3*x+9;