begin
var x := ReadReal('x =');
Println(7 * x ** 5 * Sqrt(Abs(Tan(x)))+Sqr(ArcTan(x)));
var a := ReadReal('a =');
Println((5 * a * Exp(Sin(a)) + a ** (1/7)) / Sqrt(Abs(Cos(a))))
end.
