Написать программку вычисления функции y = (f)x . Заполнить таблицу значений

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программка не работает, обновите версию!

1. Современное решение, вероятно, на 1-ый взор непонятное, но зато "в одну строчку"

begin
  SeqWhile(-2.0,t-gt;t+0.25,t-gt;tlt;=2.0)
      .ForEach(x-gt;Writeln(x:4:1,(xlt;-1 ? -3*x+2+Sin(x) :
          xlt;0 ? Abs(x) : x*Ln(x+1)):16:12))
end.

2. "Школьный" вариант

var
  x,y:real;

begin
  x:=-2;
  while xlt;=2 do begin
    if xlt;-1 then y:=-3*x+2+Sin(x)
    else
      if xlt;0 then y:=Абс(x)
      else y:=x*Ln(x+1);
    Writeln(x:4:1,y:16:12);
    x:=x+0.25
    end
end.

Итог:
-2.0  7.090702573174
-1.8  6.266014053126
-1.5  5.502505013396
-1.3  4.801015380644
-1.0  1.000000000000
-0.8  0.750000000000
-0.5  0.500000000000
-0.3  0.250000000000
 0.0  0.000000000000
 0.3  0.055785887829
 0.5  0.202732554054
 0.8  0.419711840952
 1.0  0.693147180560
 1.3  1.013662770270
 1.5  1.374436097811
 1.8  1.770301595437
 2.0  2.197224577336