ABC pacal. Для данного х вычислить значение функции.

[lyulka]

Для данного х вычислить значение функции:

[IT-man]

var x:real;
begin
readln(x);
if x>3 then writeln(1/(x*x*x+6))
else writeln(x*x-3*x+9);
end.

[lyulka]

спасибо)