СРОЧНО!!!!!!!!!!!!!!!!!!!!!!
Помогите решить задачу номер 2,в паскале.Где система,очень надо,наиболее простым способом если можно.

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

begin

 for var i := 0 to Trunc((95 + 100) / 0.5) do

 begin

   var z := -100 + 0.5 * i;

   var y := Abs(z) < 1.5 ? Abs(z) + z * z : 1 / (Abs(z) + 1);

   Writeln(z:6:1, y:20:16)

 end

end.

Результаты (приведены начало и конец)-100.0  0.0099009900990099 -99.5  0.0099502487562189 -99.0  0.0100000000000000 -98.5  0.0100502512562814 -98.0  0.0101010101010101. . . . . . .  93.0  0.0106382978723404  93.5  0.0105820105820106  94.0  0.0105263157894737  94.5  0.0104712041884817  95.0  0.0104166666666667