Пожалуйста помогите написать программу , мне очень надо я буду каждому благодарен, 53 номер.

===== 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.