Написать программу на алгоритмическом языке PASCAL с использованием любого оператора(номер 8)

Увидел ответ для PascalABC.NET и не сдержался)))

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var u:=ReadReal('u=');
  var x:=-2.3;
  Range(-23,12,2).Select(k->k/10)
      .Tabulate(x->x<=-1?Power(Cos(Power(x,4)),3):x<0.5?u/2:x*x/(x*x*x+1))
      .Foreach(t->Writeln(t[0]:4:1,t[1]:15:10))
end.

Результат
u= 3
-2.3  -0.8797052525
-2.1   0.5638810103
-1.9   0.7133050404
-1.7  -0.1090601034
-1.5   0.0403543461
-1.3  -0.8834179090
-1.1   0.0012077455
-0.9   1.5000000000
-0.7   1.5000000000
-0.5   1.5000000000
-0.3   1.5000000000
-0.1   1.5000000000
 0.1   1.5000000000
 0.3   1.5000000000
 0.5   0.2222222222
 0.7   0.3648548027
 0.9   0.4684788895
 1.1   0.5190905191