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