Сделать программу в Pascal жажду очень безотлагательно!

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

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

begin

 var x := readReal;

 var y :=

     x lt;= 0 ? x * x :

     x lt;= 1 ? 1 / x :

     x lt;= 6 ? 3.45 * x / (1 - x * x) :

     x ** 3 - 7.5;

 y.Println

end.

Пример

4.05

-0.907157928907645