Распечатать таблицу значений функции F для x, изменяющегося в промежутке от

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

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

begin

 var (x0, xk, h) := ReadReal3('Введите x0, xk, h:');

 var a := 0.4532; // const, можно поменять

 for var i := 0 to Trunc((xk - x0) / h) do

 begin

   var x := x0 + i * h;

   var y := x lt; 0 ? Tan(x) + Sqrt(1 + Абс(x - 2)) :

   x = 0 ? a * a + x + Cos(Pi) :

   x ** 3 * Sin(Pi * x);

   Writeln(x:20:15, y:20:15)

 end

end.