Записать на языке паскаль. ! завтра !

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.