BobbyFresnel

// PascalABC.NET

begin

 var (x, z) := ReadReal2('Введете x и z:');

 Print(Tan(x) - 0.5 * x + Tan(2 * z))

end.