Паскаль, пожалуйста решите

===== PascalABC.NET =====

begin

 var x := ReadReal;

 var y := x - x * x / 3 + x ** 6 / 4;

 Println(y);

 y := 3 ** (-x) + cos(x) - Sin(x * x);

 Println(y);

 y := (x ** 3 + 9 * x + 12) / (x * x - 6 * x + 15);

 Println(y);

 y := x + 12 * Sin(2 * x) + Abs(x ** 3 + x ** 5);

 Print(y)

end.