Помогите расписать задачку в PascalABC

Question

Помогите расписать задачку в PascalABC

---

Answer 1

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  Writeln(Sqr(Cos(x**3))/Abs(Cos(x**0.25))+12)
end.