===== PascalABC.NET =====
begin
var (a, b) := (2.5, -4.01);
var x := Cos(a+b) / (b * b + 5 * a);
var y := Sqrt(Abs(Sin(x) - Cos(x)))+Sqr(Tan(x - 5));
Println(y)
end.
