Впаскале для заданной функции k= вывести на экран значения функции, которые лежат в диапазоне a до b и соответствующие им значения аргумента на отрезке d=[-3,3]с шагом h.

begin

 var h := ReadReal('Задайте шаг h:');

 var (a, b) := (-3.0, 3.0);

 for var i := 0 to Trunc((b - a) / h) do

 begin

   var d := a + i * h;

   var k := 4.3 + Sin(Exp(1 / d) + 2) / (2.1 + d) - 6.7 * d;

   Writeln(d:18:15, k:24:15)

 end

end.