PascalABC.NET
begin
var x := ReadReal('x =');
if x < 3 then
Println(x / (Sqr(Sqr(x)) + 6))
else
Prinln(-x * x + 3 * x + 9)
end.
