Вычислить систему из двух функций при произвольных исходных данных

// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

// Внимание! Если программка не работает, обновите версию!

begin

 var x := ReadReal;

 var y := x lt;= 2 ?

     Cos(Абс(7 * x + 2) / 3) + 3 :

     Tan(2 * x ** 3 + 4) + 7 * x;

 y.Println

end.

Образцы

-3

3.99874285122862

3

29.3308568524905