Помогите! С пом.Паскаля естественно

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (b,x,c):=(2.5,13.5,16.28);
  var y:=Sqrt((ArcTan(0.3)+b)/(Sqr(Ln(x))+Sqr(1/Tan(c))));
  Writeln(y)
end.

Результат
0.551244979906269

Замечание: приведенный в задании ответ 0.522615 верен лишь с одним знаком после запятой. В подтверждение во вложении приведен результат, полученный с помощью пакета компьютерной алгебры Maple15