Question

Помогите написать код на паскале

Answer 1

===== PascalABC.NET =====

begin

 var (x, y, z) := ReadReal3('Введи x, y, z:');

 var v := (1 + Sqr(Sin(x + y))) /

   Abs(x - 2 * y / (1 + x * x * y * y)) * x ** Abs(y) +

   Sqr(Cos(ArcTan(1 / z)));

 Write(v)

end.