Задание в паскалеДля заданной функции k=... вывести на экран значения функции,которые

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

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

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.