Составить программу
вычисления значений функции для любого х по
желанию пользователя:

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var x := ReadReal('x =');

 if x < -2 then Print(Abs(Sin(x)) / (x * x - x ** 5))

 else Print(5 + x * (-1 + x * (1 + x)))

end.