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

// 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