Распечатать таблицу значений функции f для x, изменяющегося в интервале от x0 до xk с шагом h. значения x0, xk, h вводятся пользователем. работу выполнить на паскале. π f = tg x + √1 + | x - 2 | , при x < 0 f = ( a^2 + x ) + cos π , при x = 0, a - const f = x^3 * sin π * x , при x > 0

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 < 0 ? Tan(x) + Sqrt(1 + Abs(x - 2)) :

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

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

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

 end

end.